Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTR for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTR

fft = getFFTR(data(:))

pm_fftpack::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftpack.F90:1156

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTR

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CK32

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

33 adat = getFFTR(getFFTF(data)) / size(data)

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CK64

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

61 adat = getFFTR(getFFTF(data)) / size(data)

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CK128

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

89 adat = getFFTR(getFFTF(data)) / size(data)

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RK32

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

117 adat = getFFTR(getFFTF(data)) / size(data)

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RK64

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

145 adat = getFFTR(getFFTF(data)) / size(data)

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RK128

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

173 adat = getFFTR(getFFTF(data)) / size(data)

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281

pm_kind::RK32
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294

pm_kind::CK64
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290

pm_kind::CK128
integer, parameter CK128
The complex kind for a 128-bits container.
Definition: pm_kind.F90:289

pm_kind::CK32
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291

pm_kind::RK64
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280

pm_kind::RK128
integer, parameter RK128
The real kind for a 128-bits container.
Definition: pm_kind.F90:292

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+65

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.78218579, +0.677357376), (+1.50330782, +0.588771701E-1), (+1.94986558, +0.416896045), (+1.30762744, +0.789826334), (+1.00212908, +0.378532290), (+1.72823930, +0.320256531), (+1.75686312, +0.190028846), (+1.24791336, +0.354306340), (+1.81182694, +0.136824787), (+1.82413960, +0.321073651), (+1.39232874, +0.328696668), (+1.63180971, +0.499923825E-1), (+1.80658257, +0.417476535), (+1.54199862, +0.463997006), (+1.31994891, +0.434056640), (+1.80400372, +0.177538574), (+1.51370621, +0.550191283), (+1.37497425, +0.854169130E-1), (+1.04502785, +0.628545225), (+1.68004465, +0.640788734), (+1.47949743, +0.524342299), (+1.15614045, +0.896452665E-1), (+1.39423656, +0.643894970), (+1.71211553, +0.233308136), (+1.31748450, +0.943011761), (+1.13721180, +0.842922628), (+1.85446048, +0.538638055), (+1.95407832, +0.436667681), (+1.09387422, +0.399995983), (+1.35472250, +0.535834432E-1), (+1.94624972, +0.664283931), (+1.04430115, +0.704591095), (+1.40992975, +0.876865506), (+1.06771040, +0.141822636), (+1.66926217, +0.515416443), (+1.74643946, +0.865586638), (+1.62542379, +0.969627678), (+1.14229107, +0.277586102), (+1.25988114, +0.196741581), (+1.27716410, +0.629267633), (+1.27270174, +0.834820986), (+1.45358038, +0.661429763E-1), (+1.09504652, +0.352405727), (+1.70736456, +0.745371163), (+1.81354964, +0.734145045E-1), (+1.31077683, +0.358798206), (+1.19268870, +0.792905271), (+1.71025062, +0.401660144), (+1.18350661, +0.101917982), (+1.36549926, +0.504674911), (+1.85475636, +0.516709685), (+1.91801834, +0.839720309), (+1.71642077, +0.880593657E-1), (+1.34328580, +0.158936918), (+1.28874660, +0.456210136), (+1.89422631, +0.951943457), (+1.57606244, +0.492364705), (+1.01157534, +0.570303380), (+1.88733613, +0.811396539), (+1.88625073, +0.133014500), (+1.73065305, +0.221560121), (+1.87956035, +0.585603774), (+1.98222470, +0.901157439), (+1.71850896, +0.628074050), (+1.93666899, +0.981642783)

7

8adat = getFFTR(getFFTF(data)) / size(data)

9adat

10(+1.78218532, +0.677357256), (+1.50330734, +0.588770211E-1), (+1.94986546, +0.416896105), (+1.30762744, +0.789826274), (+1.00212896, +0.378532171), (+1.72823918, +0.320256382), (+1.75686324, +0.190028742), (+1.24791348, +0.354306132), (+1.81182671, +0.136824593), (+1.82413948, +0.321073443), (+1.39232850, +0.328696400), (+1.63180947, +0.499922223E-1), (+1.80658233, +0.417476475), (+1.54199851, +0.463997066), (+1.31994867, +0.434056610), (+1.80400395, +0.177538455), (+1.51370633, +0.550191343), (+1.37497425, +0.854168534E-1), (+1.04502773, +0.628545105), (+1.68004477, +0.640788794), (+1.47949779, +0.524342418), (+1.15614057, +0.896452367E-1), (+1.39423668, +0.643895030), (+1.71211576, +0.233308151), (+1.31748450, +0.943011820), (+1.13721168, +0.842922509), (+1.85446048, +0.538638115), (+1.95407808, +0.436667681), (+1.09387434, +0.399996042), (+1.35472250, +0.535834432E-1), (+1.94624984, +0.664283872), (+1.04430115, +0.704591036), (+1.40992999, +0.876865447), (+1.06771076, +0.141822755), (+1.66926217, +0.515416443), (+1.74643958, +0.865586519), (+1.62542367, +0.969627619), (+1.14229131, +0.277586251), (+1.25988090, +0.196741492), (+1.27716422, +0.629267633), (+1.27270174, +0.834820926), (+1.45358038, +0.661430508E-1), (+1.09504676, +0.352405727), (+1.70736468, +0.745371163), (+1.81354976, +0.734144524E-1), (+1.31077719, +0.358798146), (+1.19268918, +0.792905271), (+1.71025062, +0.401660085), (+1.18350661, +0.101918004), (+1.36549938, +0.504674852), (+1.85475671, +0.516709566), (+1.91801834, +0.839720368), (+1.71642065, +0.880593210E-1), (+1.34328568, +0.158936828), (+1.28874648, +0.456210047), (+1.89422643, +0.951943517), (+1.57606256, +0.492364615), (+1.01157546, +0.570303321), (+1.88733661, +0.811396718), (+1.88625109, +0.133014619), (+1.73065317, +0.221559972), (+1.87956059, +0.585603714), (+1.98222494, +0.901157320), (+1.71850920, +0.628074169), (+1.93666887, +0.981642723)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+45

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.8827910568989994, +0.57143923689585896), (+1.3022146584589058, +0.53773138393057640), (+1.1492048829036079, +0.80189205835367683), (+1.1175767817882374, +0.86835312499137662), (+1.2964645787245406, +0.70802747717226699), (+1.8833437523506009, +0.60971736177941438), (+1.7046826480290695, +0.34931382387703491), (+1.9794688113085499, +0.34719187921429517), (+1.1535771324832851, +0.30790005272523679), (+1.2568269448208138, +0.36032323103055086), (+1.6917213554989603, +0.10837576965002893), (+1.7574655580322167, +0.73671011008439180), (+1.2721382788268414, +0.86458259434205420), (+1.4258688415363623, +0.26939360057508643), (+1.2119378947834056, +0.36087901727071681), (+1.1233406973142968, +0.12892558788577146), (+1.0578894618075991, +0.88256285110536847E-1), (+1.3357583442327736, +0.45245518763569703), (+1.4117987332030384, +0.51058430040311964E-1), (+1.4590769791095739, +0.41418981412499112), (+1.1977886598128065, +0.98019959308337989), (+1.5603316858898877, +0.53236242689113888), (+1.7387238818909139, +0.86190615029282946), (+1.5439895546748232, +0.37031007063784438), (+1.3340259032675572, +0.37954563470235847), (+1.6444186680010831, +0.96229224088188137), (+1.8428098823505805, +0.75117599373266186), (+1.9193498859992508, +0.31261312331494651), (+1.9608228873042077, +0.16470496476011798), (+1.9177622131052119, +0.10039437806720120), (+1.1725864465222058, +0.87934025633208723), (+1.6329279539852177, +0.13261512071505666), (+1.7045075846492141, +0.41719048107261658), (+1.0005592789058682, +0.13706766744314558), (+1.8817516587918202, +0.48883920803099412), (+1.0849152396183035, +0.96408976706986482), (+1.9415779688421697, +0.83709949170101661E-1), (+1.2913795479420065, +0.34100260225756629), (+1.1768072419625697, +0.62947706914651347E-1), (+1.8093201099637222, +0.63718922042176895), (+1.5510058279344276, +0.72316387618999789), (+1.7472828999366459, +0.31610862617659818), (+1.3984015647789694, +0.68509275446080242), (+1.3860269246421288, +0.77949869900945146), (+1.0368249650398309, +0.26584132019709650)

24

25adat = getFFTR(getFFTF(data)) / size(data)

26adat

27(+1.8827910568990001, +0.57143923689585907), (+1.3022146584589056, +0.53773138393057640), (+1.1492048829036077, +0.80189205835367705), (+1.1175767817882372, +0.86835312499137673), (+1.2964645787245406, +0.70802747717226688), (+1.8833437523506009, +0.60971736177941427), (+1.7046826480290693, +0.34931382387703491), (+1.9794688113085499, +0.34719187921429517), (+1.1535771324832849, +0.30790005272523696), (+1.2568269448208138, +0.36032323103055086), (+1.6917213554989610, +0.10837576965002899), (+1.7574655580322167, +0.73671011008439202), (+1.2721382788268414, +0.86458259434205409), (+1.4258688415363623, +0.26939360057508643), (+1.2119378947834056, +0.36087901727071658), (+1.1233406973142974, +0.12892558788577163), (+1.0578894618075989, +0.88256285110536625E-1), (+1.3357583442327736, +0.45245518763569709), (+1.4117987332030384, +0.51058430040311915E-1), (+1.4590769791095735, +0.41418981412499106), (+1.1977886598128067, +0.98019959308338001), (+1.5603316858898877, +0.53236242689113900), (+1.7387238818909136, +0.86190615029282946), (+1.5439895546748230, +0.37031007063784455), (+1.3340259032675574, +0.37954563470235836), (+1.6444186680010837, +0.96229224088188137), (+1.8428098823505801, +0.75117599373266186), (+1.9193498859992510, +0.31261312331494640), (+1.9608228873042073, +0.16470496476011826), (+1.9177622131052114, +0.10039437806720095), (+1.1725864465222067, +0.87934025633208723), (+1.6329279539852180, +0.13261512071505663), (+1.7045075846492141, +0.41719048107261675), (+1.0005592789058682, +0.13706766744314536), (+1.8817516587918197, +0.48883920803099401), (+1.0849152396183039, +0.96408976706986460), (+1.9415779688421695, +0.83709949170101716E-1), (+1.2913795479420060, +0.34100260225756640), (+1.1768072419625693, +0.62947706914651347E-1), (+1.8093201099637222, +0.63718922042176884), (+1.5510058279344283, +0.72316387618999789), (+1.7472828999366459, +0.31610862617659818), (+1.3984015647789698, +0.68509275446080231), (+1.3860269246421284, +0.77949869900945146), (+1.0368249650398309, +0.26584132019709650)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+97

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.96157996876237536060684675570266534, +0.293133631533778014056013912882464473E-1), (+1.82915332262238980387853241387858771, +0.830264582855218781884814597324256537), (+1.58886131946644301638594890160414756, +0.990035335249405845925145824980930891), (+1.53633180755649356216784943745113577, +0.563393698393484435781102319197237303), (+1.15015367413716309524575749984903385, +0.591809202345560211879689442710710100), (+1.26103542225971030235147629234336568, +0.874008290783488875021255680202671641), (+1.30374795389036563465381382478995930, +0.157671070810621503696017832554378580), (+1.68064430211170102971783612505281237, +0.499400631027448634147257104051472764), (+1.50107591154230138900118890859557330, +0.112436224723051152490074121518685888E-1), (+1.16186293879480353272712327489829414, +0.139845972648234562932837668028150582), (+1.26613326944541671658762245886673094, +0.606374935360259126567845520121445634), (+1.90774603352964042472862639582842834, +0.971505543439009849328916747779250398), (+1.10975629303942689159400032104566132, +0.926640353439634490724620459244016568), (+1.79770371873166681416903837827515028, +0.568467899828546246519396121510506977), (+1.50545266376977666556243888924911246, +0.467724257579992548959956858716171404), (+1.00468202304709681555615136718326618, +0.880387846206415907373411054220177601E-1), (+1.11998520435641818204120407052094588, +0.517708924650854932848311026253727868), (+1.79090324700566257119877620728195401, +0.669544820689567451874717524979343401), (+1.89013476084034576153139503238589982, +0.702975719280430271345133058426087046), (+1.27136665110097433095368797698631635, +0.915571896436166983054778056619650208), (+1.40213600331748939823150889749431218, +0.324982743375083771180480560031183007), (+1.64413120621727327343481093353068537, +0.972047431245498332986712205954810229), (+1.33849658226231319704941167134331847, +0.365359185341399321742414274732285963), (+1.64620471176408084341493054335804815, +0.211788410529742709126982752172103876), (+1.99269141199398173580148083478744929, +0.299878608781123796625700792594973124), (+1.90238828232430720291928549876452716, +0.725528584452988003920541495833792434), (+1.16794780023186239540636581072981426, +0.786618002460668349999041450300417291), (+1.62083699826519349162613615309645196, +0.987739177273845731826630419223429215), (+1.18589592410659051278245025680239422, +0.551659425509207654210375508861182491E-1), (+1.65368943217124105085576189634159322, +0.711652213543859414273842503042842811E-1), (+1.11159006592211620010124123001968229, +0.905994929618717093080863662821195985), (+1.47195694687449891993045419209568232, +0.911940983486318831532842364638744523), (+1.55537547052911821637346994328550898, +0.842562135988892026976213681119984813), (+1.85398249692668619903183716825731494, +0.779906436982946272893696729494034711), (+1.76161075524672848608081300267443806, +0.201183224679847479870642203045692418), (+1.49075755106571711532193044995643540, +0.578410000583220237215627775716941212), (+1.91670899464057944835659548785182526, +0.138023952111581281440288032521781161), (+1.14260993738418883482740515539784574, +0.654943803966420794415933428031329983), (+1.94579627979594555133248648888208542, +0.386268660113778217936628679296069261), (+1.51060745609250221443715748612380127, +0.697827761178106558997570987916652204), (+1.34796250125010359752254003326474871, +0.739399770298585763633063196216093975), (+1.04994180994117788296820427411739738, +0.151211677005757069769515628915958550E-1), (+1.07442220188334161952421157609196211, +0.995709259063558107540218977483696213), (+1.13909436451521465490505830124643728, +0.926478242287039886797227446937632114E-1), (+1.00145398521703962128940635426249866, +0.142876482027387861032055497551908818), (+1.16975014213580428696661173050139981, +0.853783795537314414645400386361659038), (+1.09694940971410450514759795848141371, +0.933635027763349927671370225309428937E-1), (+1.34958932738356559860948715490585688, +0.727262772628410764650489124870209113), (+1.27616746845959762277178674308070106, +0.696273251914242436662582567590200451), (+1.98883783557606339504816333346223545, +0.493292610620428087536986945654368953), (+1.23591834811794975990042218549696424, +0.306405181202443748159780022481201559), (+1.73634770234613492858344338421489481, +0.978811369439159163372899223462300956), (+1.67093829012551249817088759762437849, +0.705501283906540254787456428757038556), (+1.92878785540041143844290285191138809, +0.999413634618208143764001392345783028), (+1.12291491924530054394274563536322312, +0.618033598037556757295022919866136053E-1), (+1.45636717673690919199346039892816985, +0.675027388239282398976278119051557343), (+1.76280608984048268062455771483996561, +0.871061937886058099958521766531922608), (+1.67596606526753506876246239076499123, +0.786004922600545310184545125642471505), (+1.31469713751759105553493263872911711, +0.201214621598762470836897441612664403), (+1.84977173304604672636704143899741856, +0.481007223391401347952376744992904656), (+1.76372355137585081168534266762813646, +0.799518256895238620860133490940026524), (+1.15839878820837839850702818458680993, +0.419083047985822340013798914137534342), (+1.70765712848534405244750978095203275, +0.131215327369711367306551202829937540E-1), (+1.55032220403164298894147357694011361, +0.398396422050877887357573223444055073), (+1.37548612036587028556557903378041148, +0.481563561005867559644770768530927325), (+1.37255420467496050604551498641868036, +0.678025695902184038411608564285057348), (+1.16987337223206091947936033702535916, +0.347914820335364221939053132143188359), (+1.15538320312126847326092200009675760, +0.913793732407188927510474305564899806), (+1.13609827253851110102802544969408324, +0.524010949942787750106537076785459413), (+1.75363845223772231191546747002878010, +0.316745764979911021755319277046101273), (+1.63034948479160692798838201285704197, +0.739365657922980483977581971324430001), (+1.08254213754301946685530044475690703, +0.142044357495550194056271115335242917), (+1.99479256156350562407598653914411539, +0.893636039081504385339754851496214204), (+1.13627295588609216730079997469515908, +0.538209537017510499116605745578720715), (+1.69196644770083530063637674966567851, +0.856803450359682538604581407192772060E-1), (+1.28706559319319806408708783970287160, +0.673711902525441169396356907116278863), (+1.82987384623587625451602203954738385, +0.966123032129341010938625807789053599), (+1.22157029698731648677358868985151856, +0.767243326760676565253939709705364007), (+1.19322827411617424186022459304619999, +0.399779169550976954481774531083679116), (+1.21643664580802924880344062738616098, +0.800987710486010533303123461058263878), (+1.68840227419579292299822510954736757, +0.656692046587866298011599703495434886), (+1.66808357853697669539440269129601704, +0.628405579543626440506068483620309869), (+1.49065516235814155271164615713236537, +0.464969942181406437094135555356834506), (+1.79103043969802208170284736603435526, +0.523893309187943552553163006323359688), (+1.15875670890271360799421904320455845, +0.306111177542780010797992070644739730), (+1.10953535272292207706894821531919287, +0.872237602298715813675939025643469259), (+1.97675699983987339805641376044837221, +0.652445079380098210118062360268776520), (+1.85850664352273943227664905481155087, +0.274040958985371222505595767447045433E-1), (+1.48062524120822411667251121701463115, +0.103313153255861954823791875388434264), (+1.94111186126651023880555115408447754, +0.179330833011507283971036878261861660), (+1.46237156309946005113126862379374406, +0.169883605173998026191177567913053743), (+1.77973370953114501959191239118722513, +0.265551870979498642680413750665115223), (+1.07212489601790023802318224423119123, +0.684898717704469455637856339854697065), (+1.69093748108845827392420686423890126, +0.647811070177885908615808860575540056E-1), (+1.59781038695974400301232748368664107, +0.427846360104425028526405912683627648), (+1.75853460243036749258583131425781499, +0.757687056136317755264320897665895138), (+1.95615628694243290790988999350895677, +0.975926417527544665839137553928401512)

41

42adat = getFFTR(getFFTF(data)) / size(data)

43adat

44(+1.96157996876237536060684675570266187, +0.293133631533778014056013912882455535E-1), (+1.82915332262238980387853241387858751, +0.830264582855218781884814597324256826), (+1.58886131946644301638594890160414795, +0.990035335249405845925145824980931084), (+1.53633180755649356216784943745113577, +0.563393698393484435781102319197237303), (+1.15015367413716309524575749984903366, +0.591809202345560211879689442710709811), (+1.26103542225971030235147629234336625, +0.874008290783488875021255680202671737), (+1.30374795389036563465381382478995892, +0.157671070810621503696017832554378532), (+1.68064430211170102971783612505281256, +0.499400631027448634147257104051472956), (+1.50107591154230138900118890859557291, +0.112436224723051152490074121518687678E-1), (+1.16186293879480353272712327489829376, +0.139845972648234562932837668028150582), (+1.26613326944541671658762245886673056, +0.606374935360259126567845520121445634), (+1.90774603352964042472862639582842757, +0.971505543439009849328916747779250494), (+1.10975629303942689159400032104566112, +0.926640353439634490724620459244016183), (+1.79770371873166681416903837827515008, +0.568467899828546246519396121510507651), (+1.50545266376977666556243888924911149, +0.467724257579992548959956858716171693), (+1.00468202304709681555615136718326561, +0.880387846206415907373411054220179527E-1), (+1.11998520435641818204120407052094684, +0.517708924650854932848311026253728157), (+1.79090324700566257119877620728195478, +0.669544820689567451874717524979343401), (+1.89013476084034576153139503238590020, +0.702975719280430271345133058426087238), (+1.27136665110097433095368797698631615, +0.915571896436166983054778056619650401), (+1.40213600331748939823150889749431238, +0.324982743375083771180480560031183103), (+1.64413120621727327343481093353068499, +0.972047431245498332986712205954810132), (+1.33849658226231319704941167134331809, +0.365359185341399321742414274732286012), (+1.64620471176408084341493054335804931, +0.211788410529742709126982752172103996), (+1.99269141199398173580148083478744948, +0.299878608781123796625700792594973173), (+1.90238828232430720291928549876452716, +0.725528584452988003920541495833792722), (+1.16794780023186239540636581072981369, +0.786618002460668349999041450300416810), (+1.62083699826519349162613615309645119, +0.987739177273845731826630419223429215), (+1.18589592410659051278245025680239422, +0.551659425509207654210375508861184477E-1), (+1.65368943217124105085576189634159361, +0.711652213543859414273842503042841607E-1), (+1.11159006592211620010124123001968190, +0.905994929618717093080863662821195985), (+1.47195694687449891993045419209568174, +0.911940983486318831532842364638744426), (+1.55537547052911821637346994328550763, +0.842562135988892026976213681119984716), (+1.85398249692668619903183716825731417, +0.779906436982946272893696729494034904), (+1.76161075524672848608081300267443767, +0.201183224679847479870642203045692538), (+1.49075755106571711532193044995643424, +0.578410000583220237215627775716941212), (+1.91670899464057944835659548785182469, +0.138023952111581281440288032521781185), (+1.14260993738418883482740515539784594, +0.654943803966420794415933428031330176), (+1.94579627979594555133248648888208465, +0.386268660113778217936628679296069357), (+1.51060745609250221443715748612380012, +0.697827761178106558997570987916652108), (+1.34796250125010359752254003326474852, +0.739399770298585763633063196216094264), (+1.04994180994117788296820427411739680, +0.151211677005757069769515628915960190E-1), (+1.07442220188334161952421157609196153, +0.995709259063558107540218977483696020), (+1.13909436451521465490505830124643670, +0.926478242287039886797227446937630670E-1), (+1.00145398521703962128940635426249847, +0.142876482027387861032055497551908770), (+1.16975014213580428696661173050140001, +0.853783795537314414645400386361659326), (+1.09694940971410450514759795848141332, +0.933635027763349927671370225309432668E-1), (+1.34958932738356559860948715490585572, +0.727262772628410764650489124870209209), (+1.27616746845959762277178674308070106, +0.696273251914242436662582567590200548), (+1.98883783557606339504816333346223525, +0.493292610620428087536986945654369193), (+1.23591834811794975990042218549696328, +0.306405181202443748159780022481201607), (+1.73634770234613492858344338421489443, +0.978811369439159163372899223462301341), (+1.67093829012551249817088759762437926, +0.705501283906540254787456428757038556), (+1.92878785540041143844290285191138790, +0.999413634618208143764001392345782931), (+1.12291491924530054394274563536322274, +0.618033598037556757295022919866133585E-1), (+1.45636717673690919199346039892816966, +0.675027388239282398976278119051557150), (+1.76280608984048268062455771483996503, +0.871061937886058099958521766531922512), (+1.67596606526753506876246239076499103, +0.786004922600545310184545125642471505), (+1.31469713751759105553493263872911596, +0.201214621598762470836897441612664451), (+1.84977173304604672636704143899741778, +0.481007223391401347952376744992904752), (+1.76372355137585081168534266762813684, +0.799518256895238620860133490940026621), (+1.15839878820837839850702818458680935, +0.419083047985822340013798914137534390), (+1.70765712848534405244750978095203159, +0.131215327369711367306551202829939421E-1), (+1.55032220403164298894147357694011303, +0.398396422050877887357573223444055073), (+1.37548612036587028556557903378041091, +0.481563561005867559644770768530927229), (+1.37255420467496050604551498641867881, +0.678025695902184038411608564285057156), (+1.16987337223206091947936033702535858, +0.347914820335364221939053132143188600), (+1.15538320312126847326092200009675721, +0.913793732407188927510474305564899710), (+1.13609827253851110102802544969408362, +0.524010949942787750106537076785459413), (+1.75363845223772231191546747002878010, +0.316745764979911021755319277046101418), (+1.63034948479160692798838201285704139, +0.739365657922980483977581971324430290), (+1.08254213754301946685530044475690664, +0.142044357495550194056271115335242869), (+1.99479256156350562407598653914411558, +0.893636039081504385339754851496214493), (+1.13627295588609216730079997469515928, +0.538209537017510499116605745578720811), (+1.69196644770083530063637674966567928, +0.856803450359682538604581407192775671E-1), (+1.28706559319319806408708783970287141, +0.673711902525441169396356907116278863), (+1.82987384623587625451602203954738327, +0.966123032129341010938625807789053311), (+1.22157029698731648677358868985151894, +0.767243326760676565253939709705364200), (+1.19322827411617424186022459304619941, +0.399779169550976954481774531083679501), (+1.21643664580802924880344062738616137, +0.800987710486010533303123461058264071), (+1.68840227419579292299822510954736796, +0.656692046587866298011599703495434693), (+1.66808357853697669539440269129601839, +0.628405579543626440506068483620310254), (+1.49065516235814155271164615713236499, +0.464969942181406437094135555356834651), (+1.79103043969802208170284736603435468, +0.523893309187943552553163006323359976), (+1.15875670890271360799421904320455787, +0.306111177542780010797992070644740163), (+1.10953535272292207706894821531919268, +0.872237602298715813675939025643468874), (+1.97675699983987339805641376044837124, +0.652445079380098210118062360268776712), (+1.85850664352273943227664905481155068, +0.274040958985371222505595767447044440E-1), (+1.48062524120822411667251121701463057, +0.103313153255861954823791875388434059), (+1.94111186126651023880555115408447677, +0.179330833011507283971036878261861708), (+1.46237156309946005113126862379374406, +0.169883605173998026191177567913054128), (+1.77973370953114501959191239118722456, +0.265551870979498642680413750665115175), (+1.07212489601790023802318224423119200, +0.684898717704469455637856339854697354), (+1.69093748108845827392420686423890107, +0.647811070177885908615808860575539334E-1), (+1.59781038695974400301232748368664127, +0.427846360104425028526405912683627648), (+1.75853460243036749258583131425781538, +0.757687056136317755264320897665895042), (+1.95615628694243290790988999350895658, +0.975926417527544665839137553928401898)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+64

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.46556723, +1.62878156, +1.24140930, +1.40418696, +1.23829842, +1.30529046, +1.99663043, +1.00533664, +1.84969139, +1.13878322, +1.60909486, +1.65746772, +1.99799109, +1.15980101, +1.43358207, +1.24610853, +1.45126438, +1.95906401, +1.45317006, +1.85953093, +1.37355745, +1.19491374, +1.45535207, +1.88557839, +1.85310602, +1.53369713, +1.10108244, +1.32497454, +1.72960854, +1.36771512, +1.20757508, +1.79893363, +1.99858630, +1.57123578, +1.51008868, +1.62698531, +1.47213888, +1.06273353, +1.36745667, +1.56723261, +1.51057720, +1.92643380, +1.26294875, +1.02328086, +1.87105584, +1.19490731, +1.45990658, +1.39110184, +1.69067252, +1.88580370, +1.49289989, +1.35943818, +1.87175894, +1.97220695, +1.79040933, +1.94118023, +1.98669100, +1.71371531, +1.96088946, +1.57942820, +1.84214640, +1.50995231, +1.17153943, +1.42785120

58

59adat = getFFTR(getFFTF(data)) / size(data)

60adat

61+1.46556711, +1.62878168, +1.24140918, +1.40418720, +1.23829830, +1.30529070, +1.99663055, +1.00533676, +1.84969127, +1.13878357, +1.60909474, +1.65746772, +1.99799073, +1.15980124, +1.43358195, +1.24610865, +1.45126438, +1.95906413, +1.45316994, +1.85953104, +1.37355745, +1.19491386, +1.45535219, +1.88557851, +1.85310590, +1.53369737, +1.10108221, +1.32497466, +1.72960830, +1.36771536, +1.20757520, +1.79893374, +1.99858618, +1.57123601, +1.51008856, +1.62698555, +1.47213876, +1.06273365, +1.36745679, +1.56723261, +1.51057708, +1.92643416, +1.26294863, +1.02328098, +1.87105548, +1.19490743, +1.45990646, +1.39110196, +1.69067240, +1.88580382, +1.49289978, +1.35943830, +1.87175882, +1.97220707, +1.79040945, +1.94118035, +1.98669088, +1.71371555, +1.96088922, +1.57942832, +1.84214616, +1.50995255, +1.17153943, +1.42785120

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+28

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.6540774677003265, +1.2170697031385487, +1.2293141485285273, +1.4180342569798163, +1.1517400162041773, +1.5610730455098618, +1.1762881141313417, +1.7694609758253952, +1.5188448279456341, +1.6883200987420992, +1.2423455594883841, +1.0929773332721857, +1.4321319557989205, +1.2009327567035872, +1.5426218222840575, +1.1237215498213287, +1.5563388533543663, +1.5721858981961885, +1.3266800680685418, +1.9313879073543094, +1.5721695491598735, +1.3757974969177040, +1.7541302589959853, +1.2202156056311324, +1.5589787100384540, +1.2199773198360315, +1.5624227049199062, +1.6299914361335395

75

76adat = getFFTR(getFFTF(data)) / size(data)

77adat

78+1.6540774677003263, +1.2170697031385489, +1.2293141485285275, +1.4180342569798159, +1.1517400162041773, +1.5610730455098618, +1.1762881141313417, +1.7694609758253950, +1.5188448279456341, +1.6883200987420994, +1.2423455594883845, +1.0929773332721859, +1.4321319557989198, +1.2009327567035863, +1.5426218222840575, +1.1237215498213273, +1.5563388533543658, +1.5721858981961883, +1.3266800680685413, +1.9313879073543088, +1.5721695491598737, +1.3757974969177040, +1.7541302589959857, +1.2202156056311324, +1.5589787100384540, +1.2199773198360315, +1.5624227049199060, +1.6299914361335388

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+35

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.49866483535664285572856902672231393, +1.76165237631324729191668703448746282, +1.39278380677526789779204508672776467, +1.69707636487409969584316410830120991, +1.24961406263972818491681945975797079, +1.48340513794223643683907462558868612, +1.52885446606836936204502969239187745, +1.48110743717732583024781536426508204, +1.97904719842282177061602402682185489, +1.44872713395082504274459750219807238, +1.99884724492872362662785192216984722, +1.33341655710086018388204383511708641, +1.19820342631989578504832278847570529, +1.26142011391628097229351876229409363, +1.35109294360596648258326600305878951, +1.81252757215259940827456345397757783, +1.69445832425080863996085120481399501, +1.73782853270055834608912847219082607, +1.78643810314229299864847288707384118, +1.65467310323085124916056419537325516, +1.93526615121908272651182431273307018, +1.29284753078573048355779111675754894, +1.95130268197330200682935525989870609, +1.87050483148070953932215024742857701, +1.18009545928973280452115923389488476, +1.82288118862289774504654423797013809, +1.45706387773791804750912073246028750, +1.57248218019022806392301856161170207, +1.61271853825980661791794164791872164, +1.91502441849036991770337765413893736, +1.50338131257504727963450341882717051, +1.96557468639543291162073595009023339, +1.49753389569452953537075110280663984, +1.49341152840852951333706003644998388, +1.32991611196207457799341223470005123

92

93adat = getFFTR(getFFTF(data)) / size(data)

94adat

95+1.49866483535664285572856902672231373, +1.76165237631324729191668703448746282, +1.39278380677526789779204508672776486, +1.69707636487409969584316410830121029, +1.24961406263972818491681945975797079, +1.48340513794223643683907462558868631, +1.52885446606836936204502969239187745, +1.48110743717732583024781536426508243, +1.97904719842282177061602402682185508, +1.44872713395082504274459750219807257, +1.99884724492872362662785192216984722, +1.33341655710086018388204383511708621, +1.19820342631989578504832278847570587, +1.26142011391628097229351876229409402, +1.35109294360596648258326600305878951, +1.81252757215259940827456345397757764, +1.69445832425080863996085120481399501, +1.73782853270055834608912847219082665, +1.78643810314229299864847288707384176, +1.65467310323085124916056419537325535, +1.93526615121908272651182431273306999, +1.29284753078573048355779111675754875, +1.95130268197330200682935525989870686, +1.87050483148070953932215024742857778, +1.18009545928973280452115923389488457, +1.82288118862289774504654423797013790, +1.45706387773791804750912073246028730, +1.57248218019022806392301856161170245, +1.61271853825980661791794164791872203, +1.91502441849036991770337765413893774, +1.50338131257504727963450341882717051, +1.96557468639543291162073595009023358, +1.49753389569452953537075110280664004, +1.49341152840852951333706003644998427, +1.32991611196207457799341223470005142

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+100

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.77355886, +0.252344251), (+1.04125857, +0.950280488), (+1.08793283, +0.157889724E-1), (+1.67596531, +0.720841706), (+1.22474504, +0.814073086E-1), (+1.23658657, +0.449677587), (+1.85571218, +0.387638211), (+1.53350091, +0.994062543), (+1.71444702, +0.163674235), (+1.76291347, +0.172529280), (+1.63575280, +0.139577150), (+1.88047361, +0.250892580), (+1.41069436, +0.603774786E-1), (+1.69140744, +0.785541236), (+1.87179542, +0.575048387), (+1.12001574, +0.325002015), (+1.45015502, +0.631998837), (+1.47213888, +0.648628414), (+1.97164118, +0.557789564), (+1.42992282, +0.831030130), (+1.50727880, +0.263735831), (+1.80848527, +0.632198215), (+1.14497375, +0.876982749), (+1.04374540, +0.283981621), (+1.25769031, +0.152089834), (+1.92494011, +0.200964212E-1), (+1.27354836, +0.382623196), (+1.25767708, +0.735464990), (+1.41669035, +0.591138899), (+1.16776156, +0.694485486), (+1.18240809, +0.576098144), (+1.06751013, +0.332718611), (+1.51118994, +0.717242301), (+1.83145094, +0.932772517), (+1.45037293, +0.967181385), (+1.03573799, +0.192522466), (+1.40518951, +0.941724062), (+1.31842673, +0.987636089), (+1.36343741, +0.964976490), (+1.71444249, +0.955755770), (+1.86822057, +0.594935238), (+1.90008283, +0.126934648), (+1.24907732, +0.756856441), (+1.57744145, +0.111944735), (+1.64554358, +0.406046808), (+1.10940361, +0.240241528), (+1.25362873, +0.302837491), (+1.16836548, +0.297712505), (+1.14612556, +0.570378840), (+1.31982791, +0.674835503), (+1.96271229, +0.545164287), (+1.01682639, +0.432159960), (+1.33977008, +0.822799146), (+1.39597702, +0.341429472), (+1.41598415, +0.129535556), (+1.27927852, +0.911232829E-1), (+1.77586234, +0.756882429E-1), (+1.43150783, +0.479588330), (+1.72872949, +0.488001883), (+1.23709810, +0.795250773), (+1.35932410, +0.707654595), (+1.42994881, +0.336773992E-1), (+1.14243674, +0.582312346), (+1.22739875, +0.862444937), (+1.75492597, +0.794903576), (+1.57855928, +0.317425489), (+1.35699153, +0.858448148E-1), (+1.84068298, +0.812417507), (+1.22441912, +0.413340092), (+1.75595784, +0.417743027), (+1.50926280, +0.154411852), (+1.83850014, +0.682611823), (+1.98434353, +0.853330255), (+1.84727120, +0.748005331), (+1.60683358, +0.399119854E-1), (+1.69554019, +0.470145106), (+1.57544458, +0.746580839), (+1.96331286, +0.921427846), (+1.59369946, +0.699567795), (+1.01182413, +0.421197057), (+1.32660413, +0.499931574), (+1.31337690, +0.325518668), (+1.86776185, +0.856243789), (+1.20822883, +0.512142181), (+1.45264697, +0.181132376), (+1.35281372, +0.943215907), (+1.13343143, +0.906953514), (+1.15309441, +0.997031212), (+1.19172621, +0.998647034), (+1.72169399, +0.403110027), (+1.61145663, +0.940799415), (+1.13722003, +0.621563196E-2), (+1.06905150, +0.810608447), (+1.04957676, +0.916802108), (+1.16558576, +0.708591759), (+1.78895688, +0.547357202E-1), (+1.75158167, +0.449780166), (+1.17457676, +0.318283081), (+1.10458684, +0.255355716), (+1.78734326, +0.955916405)

109

110adat = getFFTR(getFFTF(data)) / size(data)

111adat

112(+1.77355862, +0.252344131), (+1.04125857, +0.950280428), (+1.08793294, +0.157889556E-1), (+1.67596531, +0.720841527), (+1.22474480, +0.814071819E-1), (+1.23658657, +0.449677587), (+1.85571241, +0.387638211), (+1.53350103, +0.994062662), (+1.71444714, +0.163674206), (+1.76291370, +0.172529355), (+1.63575304, +0.139577106), (+1.88047397, +0.250892758), (+1.41069448, +0.603773706E-1), (+1.69140768, +0.785541236), (+1.87179565, +0.575048447), (+1.12001562, +0.325001895), (+1.45015538, +0.631998837), (+1.47213888, +0.648628294), (+1.97164118, +0.557789445), (+1.42992306, +0.831030130), (+1.50727856, +0.263735861), (+1.80848551, +0.632198274), (+1.14497411, +0.876982927), (+1.04374516, +0.283981651), (+1.25769019, +0.152090013), (+1.92493987, +0.200963598E-1), (+1.27354825, +0.382622987), (+1.25767696, +0.735464931), (+1.41669035, +0.591138899), (+1.16776156, +0.694485426), (+1.18240833, +0.576098204), (+1.06751013, +0.332718581), (+1.51119006, +0.717242360), (+1.83145130, +0.932772577), (+1.45037317, +0.967181444), (+1.03573799, +0.192522317), (+1.40518963, +0.941724062), (+1.31842661, +0.987636089), (+1.36343753, +0.964976490), (+1.71444261, +0.955755770), (+1.86822057, +0.594935238), (+1.90008307, +0.126934513), (+1.24907768, +0.756856441), (+1.57744122, +0.111944735), (+1.64554358, +0.406046838), (+1.10940325, +0.240241468), (+1.25362897, +0.302837670), (+1.16836560, +0.297712594), (+1.14612556, +0.570379019), (+1.31982815, +0.674835503), (+1.96271229, +0.545164347), (+1.01682615, +0.432159811), (+1.33977008, +0.822799087), (+1.39597714, +0.341429353), (+1.41598415, +0.129535466), (+1.27927852, +0.911231413E-1), (+1.77586269, +0.756882504E-1), (+1.43150771, +0.479588330), (+1.72872972, +0.488001943), (+1.23709822, +0.795250714), (+1.35932398, +0.707654655), (+1.42994905, +0.336773582E-1), (+1.14243710, +0.582312405), (+1.22739851, +0.862444997), (+1.75492585, +0.794903576), (+1.57855892, +0.317425370), (+1.35699177, +0.858449042E-1), (+1.84068310, +0.812417448), (+1.22441900, +0.413340300), (+1.75595796, +0.417742908), (+1.50926280, +0.154411793), (+1.83850038, +0.682612062), (+1.98434377, +0.853330255), (+1.84727144, +0.748005211), (+1.60683382, +0.399119332E-1), (+1.69553983, +0.470145106), (+1.57544434, +0.746580720), (+1.96331251, +0.921427786), (+1.59369946, +0.699567735), (+1.01182401, +0.421196938), (+1.32660413, +0.499931514), (+1.31337726, +0.325518727), (+1.86776209, +0.856243968), (+1.20822871, +0.512142181), (+1.45264709, +0.181132466), (+1.35281372, +0.943215847), (+1.13343167, +0.906953573), (+1.15309441, +0.997031271), (+1.19172633, +0.998647153), (+1.72169399, +0.403110117), (+1.61145675, +0.940799415), (+1.13722038, +0.621576328E-2), (+1.06905162, +0.810608447), (+1.04957724, +0.916802287), (+1.16558599, +0.708591819), (+1.78895688, +0.547356494E-1), (+1.75158191, +0.449780285), (+1.17457652, +0.318283081), (+1.10458696, +0.255355716), (+1.78734362, +0.955916464)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+42

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.4061938241868734, +0.21858620471403689), (+1.1738437420159478, +0.76019987158393698), (+1.0451533303685379, +0.58538811089550735), (+1.6007234560724819, +0.52585915925806692), (+1.8999425583177070, +0.55628975308437523), (+1.1021152210432730, +0.32889584421647067), (+1.8572691259432625, +0.60467842005855488), (+1.9849366147245888, +0.32196923456638382), (+1.2274849685255602, +0.45121470856702950), (+1.9653178672785281, +0.60797012318020160), (+1.3608304944812688, +0.21133826064031225), (+1.3631209614796318, +0.31248436822904802), (+1.2298440972851061, +0.74849346281622731), (+1.0095743433640925, +0.61674400177113220), (+1.7494244783422150, +0.78220335398066709), (+1.2336855179472623, +0.22179048851731464), (+1.4045351946542719, +0.24520714198399340), (+1.0391033428220455, +0.10125387002470310), (+1.7132424414463991, +0.42298290683404050), (+1.3063775616851769, +0.28396619816306656), (+1.8417964864418854, +0.37766220756543734), (+1.6225819401746893, +0.25877324881002295), (+1.7634665417792557, +0.52608330526858971), (+1.3874058425980986, +0.61793856208079267), (+1.3062415113886128, +0.43699968464145411), (+1.9810671432378459, +0.64106562435393988), (+1.5728128519991356, +0.27321060418677878), (+1.1535550346176890, +0.47881308040174553), (+1.2670725756586367, +0.16968573492725669), (+1.2469180452100459, +0.12990287218134000E-1), (+1.6155485970343699, +0.96418948253858405), (+1.5684294663724656, +0.98649196081518231), (+1.7039241671918846, +0.17566335221739082), (+1.8180802650412633, +0.88129752343049694), (+1.6354740392905294, +0.53927576454948223), (+1.8530692866725098, +0.82811996608985039), (+1.0670961605691134, +0.90266460578495344), (+1.8249477477482112, +0.59105062812194420), (+1.7499396568482606, +0.80643373714840894), (+1.1704349354355226, +0.87616250801875084), (+1.1412993029215124, +0.32772597067319031), (+1.9919527016993559, +0.85710725923357733)

126

127adat = getFFTR(getFFTF(data)) / size(data)

128adat

129(+1.4061938241868737, +0.21858620471403695), (+1.1738437420159475, +0.76019987158393709), (+1.0451533303685381, +0.58538811089550746), (+1.6007234560724817, +0.52585915925806692), (+1.8999425583177068, +0.55628975308437523), (+1.1021152210432730, +0.32889584421647083), (+1.8572691259432628, +0.60467842005855488), (+1.9849366147245884, +0.32196923456638399), (+1.2274849685255600, +0.45121470856702944), (+1.9653178672785281, +0.60797012318020172), (+1.3608304944812686, +0.21133826064031222), (+1.3631209614796316, +0.31248436822904796), (+1.2298440972851064, +0.74849346281622720), (+1.0095743433640922, +0.61674400177113231), (+1.7494244783422150, +0.78220335398066709), (+1.2336855179472623, +0.22179048851731475), (+1.4045351946542719, +0.24520714198399335), (+1.0391033428220449, +0.10125387002470314), (+1.7132424414463994, +0.42298290683404066), (+1.3063775616851767, +0.28396619816306640), (+1.8417964864418852, +0.37766220756543750), (+1.6225819401746893, +0.25877324881002306), (+1.7634665417792557, +0.52608330526858982), (+1.3874058425980991, +0.61793856208079267), (+1.3062415113886126, +0.43699968464145394), (+1.9810671432378459, +0.64106562435393999), (+1.5728128519991356, +0.27321060418677884), (+1.1535550346176888, +0.47881308040174547), (+1.2670725756586367, +0.16968573492725678), (+1.2469180452100463, +0.12990287218134212E-1), (+1.6155485970343701, +0.96418948253858416), (+1.5684294663724654, +0.98649196081518198), (+1.7039241671918846, +0.17566335221739088), (+1.8180802650412635, +0.88129752343049683), (+1.6354740392905298, +0.53927576454948234), (+1.8530692866725100, +0.82811996608985050), (+1.0670961605691134, +0.90266460578495356), (+1.8249477477482112, +0.59105062812194420), (+1.7499396568482599, +0.80643373714840871), (+1.1704349354355224, +0.87616250801875084), (+1.1412993029215124, +0.32772597067319031), (+1.9919527016993559, +0.85710725923357756)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+43

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.99947918635365029592346329869776974, +0.404725738747796852407788821040138016), (+1.98168733660885292742820373809966094, +0.145966950901135510013053212143422026), (+1.92496943369604088114641336589323591, +0.829823823156670116146022431121736863), (+1.01753223461436499179371088683178060, +0.958432449839784967612085590126067813), (+1.54024504390229205861956346943286430, +0.860047067213873083388622121455813473), (+1.68800107413037755610322460980326830, +0.193147713800244233315980810442970086), (+1.64946735189651998361951261059823479, +0.265153807624484063194506809087453378), (+1.54078422981929123540982974508531719, +0.306352621029498993550042533113440882), (+1.62138146990085158219456173267518946, +0.929788533861604854938335376436026897E-3), (+1.59313450673295850009210238706813752, +0.297688035193151821502488018641473858E-1), (+1.46121172873430481583667556401673068, +0.522433005305191068624439397307476242), (+1.79649575260938389815953386376084799, +0.846512055760545449104078818614776748), (+1.26839453718316918022052783596424848, +0.591211361793008998418465126594756354), (+1.82268570136121951926773478467244794, +0.508324608468986078765496267262925017), (+1.42043377670767805623536500130173497, +0.819364737764369256549439567287081299), (+1.46376084514173280595169587743345655, +0.385998747917514037676513545876159005), (+1.14600916699289143885903212947905451, +0.302942205255069921782005815792410790), (+1.25482293486058243555001959406812705, +0.380233248337546393784855154155151725), (+1.59746565278147786152798391967306494, +0.394275753369952956990534606214790102), (+1.23763063524824355801239244473582774, +0.685955142258900937747173549664435579), (+1.05977436732698600859091022190978476, +0.318288693830033491567659194679570369), (+1.97465850253936853723715064705795976, +0.358817329935756504729746583271105310), (+1.29985882010136414735862711426149860, +0.407196621600981997273125954100796846), (+1.45733806700980028019855105962589365, +0.738816342687364603235440704842821736), (+1.73257477436524248923379665654274881, +0.882932999503093401472221231067162111), (+1.75878786998342218616556536587243127, +0.660382507702656716347050177578782740), (+1.17705640929349746170065410980958343, +0.449640185544577504515825870011707028), (+1.69206521326079332795494795556902100, +0.301738574781929732092762809314863530), (+1.68370532000209648111801002909979433, +0.651497151778701715604103421262687035), (+1.30964510722762756757398261723001754, +0.926959694570211985028673881936428475), (+1.00636017800380816294870858953462442, +0.474059097555616558120866293796465648), (+1.86222256162974623934143812288164938, +0.965351939647623404485522440081081378), (+1.84106863666349586048084551134379059, +0.357538622089479567701137000927195724), (+1.39245747848840140590696401279085640, +0.748365705213655207138252951664530476), (+1.21693643048859937868970608047257730, +0.986014684169166193928567568583179174), (+1.94203350714727920700464555561583527, +0.264417327934777493930266605449907677), (+1.29763215381726065045351972823563513, +0.964721054562269958562627465768296506), (+1.48760694597070111738492244271221824, +0.504696180800801826560662194957195065), (+1.48337569128048568901235066091863479, +0.995134605383578596278049216048966914), (+1.39980661051276288036423934190491671, +0.865146015524649912030514678319959649E-1), (+1.92599117998438396280093993793508216, +0.825763569514421092976096083898899567), (+1.73124354012327620629110773222372509, +0.132112732647271287416769827589520382), (+1.08438052111358107819210644151311959, +0.211987178782716184937574077512497028)

143

144adat = getFFTR(getFFTF(data)) / size(data)

145adat

146(+1.99947918635365029592346329869777147, +0.404725738747796852407788821040138594), (+1.98168733660885292742820373809966094, +0.145966950901135510013053212143422074), (+1.92496943369604088114641336589323591, +0.829823823156670116146022431121736767), (+1.01753223461436499179371088683178080, +0.958432449839784967612085590126067716), (+1.54024504390229205861956346943286411, +0.860047067213873083388622121455813377), (+1.68800107413037755610322460980326811, +0.193147713800244233315980810442970230), (+1.64946735189651998361951261059823479, +0.265153807624484063194506809087453426), (+1.54078422981929123540982974508531719, +0.306352621029498993550042533113440641), (+1.62138146990085158219456173267518927, +0.929788533861604854938335376435961916E-3), (+1.59313450673295850009210238706813733, +0.297688035193151821502488018641472414E-1), (+1.46121172873430481583667556401673030, +0.522433005305191068624439397307476146), (+1.79649575260938389815953386376084780, +0.846512055760545449104078818614776844), (+1.26839453718316918022052783596424790, +0.591211361793008998418465126594756354), (+1.82268570136121951926773478467244756, +0.508324608468986078765496267262924921), (+1.42043377670767805623536500130173497, +0.819364737764369256549439567287081010), (+1.46376084514173280595169587743345578, +0.385998747917514037676513545876158860), (+1.14600916699289143885903212947905470, +0.302942205255069921782005815792410694), (+1.25482293486058243555001959406812686, +0.380233248337546393784855154155151725), (+1.59746565278147786152798391967306513, +0.394275753369952956990534606214790343), (+1.23763063524824355801239244473582793, +0.685955142258900937747173549664435579), (+1.05977436732698600859091022190978514, +0.318288693830033491567659194679570369), (+1.97465850253936853723715064705796015, +0.358817329935756504729746583271105117), (+1.29985882010136414735862711426149899, +0.407196621600981997273125954100796894), (+1.45733806700980028019855105962589384, +0.738816342687364603235440704842821640), (+1.73257477436524248923379665654274881, +0.882932999503093401472221231067162015), (+1.75878786998342218616556536587243166, +0.660382507702656716347050177578782740), (+1.17705640929349746170065410980958304, +0.449640185544577504515825870011706980), (+1.69206521326079332795494795556902119, +0.301738574781929732092762809314863434), (+1.68370532000209648111801002909979356, +0.651497151778701715604103421262686553), (+1.30964510722762756757398261723001754, +0.926959694570211985028673881936428186), (+1.00636017800380816294870858953462404, +0.474059097555616558120866293796465696), (+1.86222256162974623934143812288164880, +0.965351939647623404485522440081081378), (+1.84106863666349586048084551134379001, +0.357538622089479567701137000927195820), (+1.39245747848840140590696401279085583, +0.748365705213655207138252951664530476), (+1.21693643048859937868970608047257711, +0.986014684169166193928567568583178981), (+1.94203350714727920700464555561583470, +0.264417327934777493930266605449907628), (+1.29763215381726065045351972823563513, +0.964721054562269958562627465768296313), (+1.48760694597070111738492244271221824, +0.504696180800801826560662194957194969), (+1.48337569128048568901235066091863440, +0.995134605383578596278049216048966721), (+1.39980661051276288036423934190491651, +0.865146015524649912030514678319961455E-1), (+1.92599117998438396280093993793508236, +0.825763569514421092976096083898899759), (+1.73124354012327620629110773222372567, +0.132112732647271287416769827589520550), (+1.08438052111358107819210644151311921, +0.211987178782716184937574077512497076)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+68

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.80168152, +1.96203780, +1.87392497, +1.85708511, +1.89648938, +1.77469015, +1.55763674, +1.60892272, +1.72685409, +1.87140512, +1.62022972, +1.45076060, +1.09527075, +1.86348259, +1.78676343, +1.61115718, +1.83175540, +1.12325585, +1.73181212, +1.55725932, +1.91761506, +1.46457267, +1.06393361, +1.66698575, +1.70065236, +1.19191420, +1.72529912, +1.12879014, +1.52113390, +1.34753358, +1.94991040, +1.92638850, +1.52555287, +1.87661219, +1.76986432, +1.66117334, +1.55239201, +1.09929788, +1.06597304, +1.40386438, +1.84735119, +1.90259767, +1.07552600, +1.60984051, +1.86163759, +1.90196013, +1.81458962, +1.46304798, +1.51824546, +1.67143846, +1.46376204, +1.27775788, +1.61893821, +1.21039701, +1.66587257, +1.17802238, +1.24368644, +1.35686660, +1.29696167, +1.13326192, +1.50346756, +1.60643589, +1.10283887, +1.50060320, +1.73139453, +1.85518420, +1.17399144, +1.33577168

160

161adat = getFFTR(getFFTF(data)) / size(data)

162adat

163+1.80168176, +1.96203816, +1.87392521, +1.85708523, +1.89648950, +1.77469039, +1.55763698, +1.60892296, +1.72685421, +1.87140512, +1.62022936, +1.45076072, +1.09527111, +1.86348248, +1.78676331, +1.61115718, +1.83175540, +1.12325609, +1.73181200, +1.55725908, +1.91761529, +1.46457279, +1.06393397, +1.66698551, +1.70065236, +1.19191468, +1.72529900, +1.12879062, +1.52113438, +1.34753394, +1.94991028, +1.92638826, +1.52555299, +1.87661195, +1.76986408, +1.66117322, +1.55239201, +1.09929824, +1.06597316, +1.40386426, +1.84735155, +1.90259778, +1.07552636, +1.60984039, +1.86163759, +1.90196049, +1.81458950, +1.46304822, +1.51824582, +1.67143869, +1.46376204, +1.27775788, +1.61893833, +1.21039724, +1.66587222, +1.17802227, +1.24368668, +1.35686672, +1.29696167, +1.13326192, +1.50346756, +1.60643601, +1.10283864, +1.50060332, +1.73139465, +1.85518456, +1.17399192, +1.33577204

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+60

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.6485819876955086, +1.3093215881150577, +1.9223887010041718, +1.0899195885362145, +1.1108124554977232, +1.0798716329835685, +1.1858702889920860, +1.4184282326006881, +1.0699789934888839, +1.7206881303064065, +1.6788923722246467, +1.9620017539095100, +1.3416452419911002, +1.8576562451331298, +1.9136466223710071, +1.2049358073069887, +1.9974567960551817, +1.5249275130161570, +1.2615351809385222, +1.9978548838465542, +1.8898323593321749, +1.9225233103824282, +1.6353965091331926, +1.7020219380170278, +1.0890416355223489, +1.8056095652041080, +1.5515084423527408, +1.7442077086907601, +1.8136599857249165, +1.6144975283750440, +1.4497008809479968, +1.7753616075560141, +1.8157766095923353, +1.9004854211417839, +1.7083778767443132, +1.9733667483688473, +1.1193113412585902, +1.8651309392554296, +1.6623069700754858, +1.2776965045523228, +1.6503870309589215, +1.9889523645472922, +1.7415659838999051, +1.2692756414255539, +1.0951090233913785, +1.5407257488935002, +1.9895200977324876, +1.0460775140947756, +1.0375477889361107, +1.3032101615036056, +1.1767427950822418, +1.3134372168248463, +1.3352901051890913, +1.4851612280240873, +1.2476010019968213, +1.2751547604901003, +1.7206524114988611, +1.2369842969681932, +1.6334151331788598, +1.4111643437363259

177

178adat = getFFTR(getFFTF(data)) / size(data)

179adat

180+1.6485819876955083, +1.3093215881150584, +1.9223887010041723, +1.0899195885362147, +1.1108124554977232, +1.0798716329835687, +1.1858702889920860, +1.4184282326006881, +1.0699789934888839, +1.7206881303064068, +1.6788923722246465, +1.9620017539095100, +1.3416452419911000, +1.8576562451331298, +1.9136466223710071, +1.2049358073069887, +1.9974567960551817, +1.5249275130161566, +1.2615351809385222, +1.9978548838465537, +1.8898323593321746, +1.9225233103824284, +1.6353965091331919, +1.7020219380170274, +1.0890416355223487, +1.8056095652041080, +1.5515084423527405, +1.7442077086907599, +1.8136599857249167, +1.6144975283750440, +1.4497008809479965, +1.7753616075560141, +1.8157766095923349, +1.9004854211417841, +1.7083778767443127, +1.9733667483688468, +1.1193113412585900, +1.8651309392554296, +1.6623069700754856, +1.2776965045523230, +1.6503870309589217, +1.9889523645472920, +1.7415659838999047, +1.2692756414255537, +1.0951090233913778, +1.5407257488935002, +1.9895200977324874, +1.0460775140947751, +1.0375477889361104, +1.3032101615036060, +1.1767427950822416, +1.3134372168248460, +1.3352901051890913, +1.4851612280240869, +1.2476010019968213, +1.2751547604901001, +1.7206524114988608, +1.2369842969681930, +1.6334151331788596, +1.4111643437363255

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+72

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.53532554698095247493756154946324819, +1.44507343088811802332039108834583045, +1.59037155952964369499063980755202022, +1.33124457332372698761585540801687587, +1.41779450976723852299612771344947704, +1.32056789397801645010819731445454074, +1.78259857746133496603948052776215129, +1.54432260035921705143990774624622882, +1.50125717547202015969474963657643775, +1.35095799209104830765325957644238690, +1.44624335036423570564276066960617814, +1.17829651355077535520656911412162901, +1.56056603709003023276428624497610026, +1.29863508346521395026333750887331378, +1.14758304943218137885824016913172318, +1.84649831396638914074271960592906288, +1.07539079628026410140033504690771846, +1.46535447277364552262127179110444475, +1.24077980660278153080645564179078456, +1.00610453416520372611002439956137842, +1.11141636179690704940535006991392257, +1.32586100962572517551659238105885156, +1.20253903694266893629559890892843948, +1.84050392952945914089738225957732576, +1.68439357991343645860535785681672956, +1.70554171294527910933276504064358532, +1.26810104235251305577320814000266194, +1.58617498324066749990037157499612605, +1.36585115465067481619653783721633102, +1.12646241194281719875389499618975207, +1.81904058581872834333607419900448678, +1.91758422310999874751872894229139805, +1.45479948624820429380433068268059026, +1.32648902301448357084977248395496444, +1.37904693993301127342395071906048140, +1.59424477097105719629149556606647326, +1.77707767276825388347084241627959811, +1.62907186098477524264970024211156526, +1.75483252521932044751337617156859707, +1.39011720528196521134369065676277422, +1.67562997013809188493513330124912147, +1.86770006625477687241366438255950697, +1.32836998898293978679962484244200835, +1.35684843162372775654609357399913946, +1.07481098880269340542800923636543913, +1.92910275238293292618492448876880915, +1.57507199151171984324440223865091035, +1.78076593425131055537765344137282990, +1.93700589059771179339728088774549208, +1.69212386415168844283108242216820059, +1.23752366117544313472310867242340498, +1.67544134621987436437703330522517676, +1.54712253739919969973868931460872657, +1.39311176732207435300795970531541194, +1.06130159925646269993288812407868011, +1.59174753156072434025787591012176218, +1.77873824811390502051738896890504668, +1.91812285530964640292012604504039626, +1.81094762289905120268418405451067149, +1.94770612586152846792842777329140871, +1.60459946412615077064664640184938208, +1.57314515660082820026720637958101463, +1.73912999139037216972478834770113994, +1.40378592934994129931264612707938367, +1.47777459294390139286493869095626725, +1.78056568278474001606565224116299108, +1.47175247548258336290326254479293412, +1.10971781813017570815283886987850409, +1.85274111069562766983386535164172091, +1.30313024339260042526357620266093701, +1.80498693467188916653529862022015861, +1.95011076373739098275387676989477195

194

195adat = getFFTR(getFFTF(data)) / size(data)

196adat

197+1.53532554698095247493756154946324819, +1.44507343088811802332039108834583045, +1.59037155952964369499063980755202041, +1.33124457332372698761585540801687567, +1.41779450976723852299612771344947685, +1.32056789397801645010819731445454074, +1.78259857746133496603948052776215148, +1.54432260035921705143990774624622863, +1.50125717547202015969474963657643756, +1.35095799209104830765325957644238690, +1.44624335036423570564276066960617814, +1.17829651355077535520656911412162863, +1.56056603709003023276428624497610007, +1.29863508346521395026333750887331416, +1.14758304943218137885824016913172337, +1.84649831396638914074271960592906249, +1.07539079628026410140033504690771846, +1.46535447277364552262127179110444455, +1.24077980660278153080645564179078437, +1.00610453416520372611002439956137823, +1.11141636179690704940535006991392257, +1.32586100962572517551659238105885213, +1.20253903694266893629559890892843986, +1.84050392952945914089738225957732556, +1.68439357991343645860535785681672937, +1.70554171294527910933276504064358494, +1.26810104235251305577320814000266214, +1.58617498324066749990037157499612585, +1.36585115465067481619653783721633064, +1.12646241194281719875389499618975226, +1.81904058581872834333607419900448716, +1.91758422310999874751872894229139785, +1.45479948624820429380433068268059007, +1.32648902301448357084977248395496444, +1.37904693993301127342395071906048140, +1.59424477097105719629149556606647307, +1.77707767276825388347084241627959791, +1.62907186098477524264970024211156545, +1.75483252521932044751337617156859707, +1.39011720528196521134369065676277422, +1.67562997013809188493513330124912147, +1.86770006625477687241366438255950697, +1.32836998898293978679962484244200835, +1.35684843162372775654609357399913907, +1.07481098880269340542800923636543913, +1.92910275238293292618492448876880934, +1.57507199151171984324440223865091092, +1.78076593425131055537765344137282990, +1.93700589059771179339728088774549208, +1.69212386415168844283108242216820040, +1.23752366117544313472310867242340498, +1.67544134621987436437703330522517657, +1.54712253739919969973868931460872637, +1.39311176732207435300795970531541213, +1.06130159925646269993288812407868030, +1.59174753156072434025787591012176198, +1.77873824811390502051738896890504648, +1.91812285530964640292012604504039626, +1.81094762289905120268418405451067129, +1.94770612586152846792842777329140852, +1.60459946412615077064664640184938208, +1.57314515660082820026720637958101501, +1.73912999139037216972478834770114013, +1.40378592934994129931264612707938348, +1.47777459294390139286493869095626706, +1.78056568278474001606565224116299108, +1.47175247548258336290326254479293412, +1.10971781813017570815283886987850370, +1.85274111069562766983386535164172072, +1.30313024339260042526357620266093740, +1.80498693467188916653529862022015900, +1.95011076373739098275387676989477175

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+35

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.51149416, +0.779884994), (+1.65652406, +0.563168168), (+1.83485496, +0.888387442), (+1.88220429, +0.442189932), (+1.89269304, +0.775144517), (+1.14980817, +0.638711572), (+1.67512882, +0.243329763), (+1.43594277, +0.477086604), (+1.89001989, +0.539128780), (+1.35188317, +0.318467915), (+1.38529515, +0.212721527), (+1.46791089, +0.138307571), (+1.99076605, +0.214998424), (+1.21695328, +0.832516015), (+1.50640321, +0.517535448), (+1.77377629, +0.679304600), (+1.34557176, +0.664505959E-1), (+1.38521123, +0.109241068), (+1.51697278, +0.921099365), (+1.64482999, +0.335395992), (+1.46142364, +0.624431789), (+1.40142941, +0.776404500), (+1.28052485, +0.419224381), (+1.12857985, +0.407856226), (+1.57068157, +0.486225426), (+1.74917769, +0.736938000), (+1.86490989, +0.922896802), (+1.18161798, +0.788040876), (+1.79349494, +0.592631102E-2), (+1.63166058, +0.171781778E-1), (+1.85316563, +0.600631714), (+1.43670797, +0.555357635), (+1.43674552, +0.584993422), (+1.34280229, +0.308569670E-1), (+1.18458700, +0.812497854)

211

212adat = getFFTR(getFFTF(data)) / size(data)

213adat

214(+1.51149356, +0.779885054), (+1.65652394, +0.563168108), (+1.83485472, +0.888387382), (+1.88220406, +0.442189902), (+1.89269280, +0.775144517), (+1.14980781, +0.638711572), (+1.67512870, +0.243329734), (+1.43594265, +0.477086633), (+1.89001989, +0.539128959), (+1.35188341, +0.318468034), (+1.38529515, +0.212721497), (+1.46791077, +0.138307512), (+1.99076629, +0.214998439), (+1.21695328, +0.832516193), (+1.50640297, +0.517535508), (+1.77377665, +0.679304719), (+1.34557152, +0.664504990E-1), (+1.38521123, +0.109241024), (+1.51697254, +0.921099544), (+1.64482987, +0.335396022), (+1.46142399, +0.624431908), (+1.40142918, +0.776404440), (+1.28052521, +0.419224590), (+1.12857974, +0.407856226), (+1.57068157, +0.486225516), (+1.74917758, +0.736938179), (+1.86490977, +0.922896922), (+1.18161833, +0.788040936), (+1.79349458, +0.592624117E-2), (+1.63166082, +0.171783455E-1), (+1.85316551, +0.600631714), (+1.43670797, +0.555357575), (+1.43674541, +0.584993422), (+1.34280217, +0.308569223E-1), (+1.18458736, +0.812498033)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+24

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.7395758124739791, +0.48177363929130557), (+1.9541650685733165, +0.80215522275736773), (+1.3193234677983603, +0.37460073083555812), (+1.6444610096221579, +0.56796860049540154), (+1.7952532666574341, +0.15769674194687822), (+1.9343080802066828, +0.64275932817498593), (+1.9469837460320334, +0.21909541506494579), (+1.0965765200949793, +0.53155182434995840), (+1.4026785930122183, +0.41913586150713544), (+1.1346554629258998, +0.40869313443852240), (+1.4478155670653932, +0.89934653319153590), (+1.9075957034180391, +0.67458484008516439), (+1.7550149878231072, +0.79206525773646086), (+1.3306344945847257, +0.35352757031278970), (+1.9888522526234189, +0.35710897884054915), (+1.6390342867479930, +0.98398173942523770), (+1.7680375149303420, +0.47881777551939031), (+1.1890191502706271, +0.63669416474460716), (+1.7627817446165475, +0.39045200256461721), (+1.5205306929535150, +0.13398110896640802), (+1.4850471697314989, +0.97955682885222528), (+1.1627133456692853, +0.15081195407897408), (+1.8097191967788697, +0.10486386975389317), (+1.4382211851965208, +0.58564767313210631)

228

229adat = getFFTR(getFFTF(data)) / size(data)

230adat

231(+1.7395758124739793, +0.48177363929130551), (+1.9541650685733167, +0.80215522275736773), (+1.3193234677983607, +0.37460073083555789), (+1.6444610096221581, +0.56796860049540154), (+1.7952532666574337, +0.15769674194687827), (+1.9343080802066834, +0.64275932817498582), (+1.9469837460320338, +0.21909541506494579), (+1.0965765200949793, +0.53155182434995840), (+1.4026785930122185, +0.41913586150713550), (+1.1346554629259002, +0.40869313443852251), (+1.4478155670653932, +0.89934653319153579), (+1.9075957034180391, +0.67458484008516439), (+1.7550149878231072, +0.79206525773646075), (+1.3306344945847262, +0.35352757031278986), (+1.9888522526234194, +0.35710897884054926), (+1.6390342867479930, +0.98398173942523781), (+1.7680375149303418, +0.47881777551939025), (+1.1890191502706278, +0.63669416474460716), (+1.7627817446165477, +0.39045200256461721), (+1.5205306929535150, +0.13398110896640811), (+1.4850471697314989, +0.97955682885222517), (+1.1627133456692857, +0.15081195407897419), (+1.8097191967788702, +0.10486386975389335), (+1.4382211851965210, +0.58564767313210631)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+79

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.06189325934103552500274898094744804, +0.819555455670683272627282874038209582), (+1.62803209081362611072499363447053120, +0.809200486391743252392696804238539090), (+1.44851801907863294066753668685860235, +0.601588905115019474240935953072929282), (+1.36369950255672921437958256075794282, +0.672930448797200486176599911216349922), (+1.93030512955093462954697133256753209, +0.899595838581088903313135960895615259), (+1.11207859671785453320018220049977080, +0.804450886616936350978036191839254819), (+1.08831072365022911455507300848990483, +0.620111205658925534457519350045896517), (+1.02198649686733237915326159727879074, +0.587257483753038603765990483425612392), (+1.13030082473693451516019542837296107, +0.900206238454121893824993927238897780), (+1.61817323919991319116698733834213805, +0.959659032562253272814077393088821572), (+1.69196810511548642297828365283142942, +0.206119600068476288979973303818431045), (+1.59185556906821758345028170035085875, +0.306336536718379131059378582343628424), (+1.23384745818707272249768745915400117, +0.346652598499500140089591910497691977), (+1.48643859972262727783686502541814494, +0.136340599077353808496979342274265781), (+1.54463068837672544647877841061152751, +0.683991957806464956566728243150305788), (+1.82831530276782970969644174530335826, +0.200518083727312866107901078241574576), (+1.08724396519951984231145766730487465, +0.987267217177181118640950440736001828), (+1.02440676201313904671418415013968852, +0.282969104081203899639234135232478631), (+1.64049613080663267348436896556428638, +0.872525958848195374195340468395905795), (+1.11861869626176925415033957678128380, +0.819818462089645917710860680876949120), (+1.12035747398090438390259750140318680, +0.700838211086813766276383129433739347), (+1.05878139044812472832450363662663563, +0.880667662934096469200296774878050076), (+1.88439743961953060250273529156217973, +0.355320809547102908188186565860181307E-1), (+1.84527415880473054004004670664164494, +0.868529386779615900537293985125713978), (+1.94304338027961150833530727431996385, +0.162810439192580544998052808892304193), (+1.93438976462283229948028585451121216, +0.745605295565204287644941680934993266), (+1.56793443656631713160493756274497195, +0.142141023521382588844254414176979798), (+1.24765799441830971702969573555139368, +0.106178308649638027939236142093285292), (+1.08718009942276748054453741960553630, +0.605240995839882815132046167748998340), (+1.23726952300570704976795013022165971, +0.648303015651427502659174203854159514), (+1.25326912204397386410653988106389800, +0.153376261591992579139363025296818445), (+1.54736588470942970000879721041265909, +0.640803958088617669769270135529872959), (+1.98469807671258923940453431326595227, +0.282629165673277089443506292172728047), (+1.03263249166374740904934712246780104, +0.772908776098069084034091003637873032), (+1.81609802612234649356913730203348096, +0.733359400273149086138309639462504229E-1), (+1.01060104978519975323065130027835698, +0.685433106144814344496384406715034827), (+1.64786638036395514980347504642713402, +0.992353308472537301154913578988932162E-1), (+1.75332460532579665018383440169899342, +0.608823333044267257579890734853117149), (+1.56710716400962891920169904911909691, +0.154252918616520540103955096861724439), (+1.34553460514350238431672035587801839, +0.976629727316700414828231885848709274E-1), (+1.71026581351239273485716088186916664, +0.942932343142161508241575868519041132), (+1.46630642727495188568822772824932776, +0.907742481281603432074548990710426464), (+1.67658390538450298674511144293394887, +0.210753586979982793417415457287477011), (+1.98895249709324433913614675577405445, +0.809832176155961436236055786389836812), (+1.09436584339362601557274915628158802, +0.147654250522569727056230484913042147), (+1.46439575334762273693020209884170206, +0.896699523147191684174873843698569188), (+1.16909501673173239936280350380816542, +0.628441456227641131364648507642416056), (+1.53518599584012884704579130090886739, +0.343806114096655254496243311189804229E-3), (+1.70019205438544368461477788794841217, +0.574284357849907942425939444713754761), (+1.50876625405417654744948372357867943, +0.851026268183604645064330318756872311), (+1.23536785384299368537285587498247331, +0.622958089292787808155990742210069953), (+1.11976630608224334501995162268920586, +0.892229791324619791059603110460421273), (+1.00493470232605117280680014586403699, +0.990042505588885135510762919298843883), (+1.57638278470569057980189687246974912, +0.994814919984728786123901934110379706), (+1.62923587454651574966388972076789309, +0.971804355029240517398035776350194336), (+1.35426773262835074525166206284819546, +0.985113035084242046192392673058506615), (+1.12684454461651131881605928973268699, +0.602823119941379581783459291843343780), (+1.06157162654334465917871158723541347, +0.646438737655886084447803752839918560), (+1.31833349036493057877098696369083438, +0.860501033444184762208074147181076792), (+1.93490970615835746551710019756753212, +0.320483624140162187869391598075225831E-1), (+1.29017325507015668034850045829455242, +0.519188374132504256944698524254592226E-1), (+1.97383265201301732557068645386789655, +0.374557286944349616671582973246316816), (+1.04697821545607003855720073216593308, +0.342041819503074399023305080930037536), (+1.72215097225813653944700305332673818, +0.995118552032747488807531838327696508), (+1.23345288062673518780416927661031998, +0.500963476153975241584824066630390092), (+1.34950580049433900792863216983692699, +0.918054110457047236896764963103023145), (+1.90633647867895866517317214888027320, +0.945338144776406460458645173077834009), (+1.41465433646129921024276275740365384, +0.281205912227819749163896829338552852), (+1.30500202836711460376223192049517342, +0.843175123032303689352921484656284115), (+1.33397191841722899864066330232386271, +0.999795529144702676864933456731511264), (+1.35108006767304223904611033622006460, +0.385644239669130201377493582386313798), (+1.94304670923862680437272229542546933, +0.910901035650455914253489008168829244), (+1.53755098484172110959881865488697974, +0.249639155829163019191248118762312642), (+1.50464815301078122858030833157901025, +0.864814788703948416734324229534813664), (+1.29851067637576527253831987646867250, +0.851004734090865621148414688367765631E-1), (+1.93193465177449812217105928399699513, +0.669577666223105967570005662531164849), (+1.22548902988023788004557284087424745, +0.592525209058477489762288253732140002), (+1.77865210765680628973505256526037236, +0.300306291364506360327752514052998235E-1), (+1.56403384049836441814120892625401882, +0.519908861535327156761444403401684089)

245

246adat = getFFTR(getFFTF(data)) / size(data)

247adat

248(+1.06189325934103552500274898094745170, +0.819555455670683272627282874038211123), (+1.62803209081362611072499363447053082, +0.809200486391743252392696804238538705), (+1.44851801907863294066753668685860273, +0.601588905115019474240935953072929475), (+1.36369950255672921437958256075794224, +0.672930448797200486176599911216349825), (+1.93030512955093462954697133256753228, +0.899595838581088903313135960895615163), (+1.11207859671785453320018220049977080, +0.804450886616936350978036191839254819), (+1.08831072365022911455507300848990483, +0.620111205658925534457519350045896613), (+1.02198649686733237915326159727879093, +0.587257483753038603765990483425612006), (+1.13030082473693451516019542837296107, +0.900206238454121893824993927238897876), (+1.61817323919991319116698733834213766, +0.959659032562253272814077393088821572), (+1.69196810511548642297828365283143000, +0.206119600068476288979973303818431118), (+1.59185556906821758345028170035085894, +0.306336536718379131059378582343628569), (+1.23384745818707272249768745915400156, +0.346652598499500140089591910497692218), (+1.48643859972262727783686502541814494, +0.136340599077353808496979342274265757), (+1.54463068837672544647877841061152751, +0.683991957806464956566728243150305692), (+1.82831530276782970969644174530335769, +0.200518083727312866107901078241574287), (+1.08724396519951984231145766730487446, +0.987267217177181118640950440736001636), (+1.02440676201313904671418415013968755, +0.282969104081203899639234135232478487), (+1.64049613080663267348436896556428561, +0.872525958848195374195340468395906180), (+1.11861869626176925415033957678128361, +0.819818462089645917710860680876949409), (+1.12035747398090438390259750140318661, +0.700838211086813766276383129433739250), (+1.05878139044812472832450363662663544, +0.880667662934096469200296774878050172), (+1.88439743961953060250273529156217935, +0.355320809547102908188186565860182631E-1), (+1.84527415880473054004004670664164552, +0.868529386779615900537293985125714363), (+1.94304338027961150833530727431996328, +0.162810439192580544998052808892304049), (+1.93438976462283229948028585451121158, +0.745605295565204287644941680934993651), (+1.56793443656631713160493756274497233, +0.142141023521382588844254414176980160), (+1.24765799441830971702969573555139368, +0.106178308649638027939236142093285352), (+1.08718009942276748054453741960553611, +0.605240995839882815132046167748998244), (+1.23726952300570704976795013022165933, +0.648303015651427502659174203854159418), (+1.25326912204397386410653988106389762, +0.153376261591992579139363025296819168), (+1.54736588470942970000879721041265948, +0.640803958088617669769270135529873247), (+1.98469807671258923940453431326595285, +0.282629165673277089443506292172728384), (+1.03263249166374740904934712246780104, +0.772908776098069084034091003637873225), (+1.81609802612234649356913730203348135, +0.733359400273149086138309639462505914E-1), (+1.01060104978519975323065130027835640, +0.685433106144814344496384406715034827), (+1.64786638036395514980347504642713440, +0.992353308472537301154913578988933366E-1), (+1.75332460532579665018383440169899245, +0.608823333044267257579890734853117245), (+1.56710716400962891920169904911909672, +0.154252918616520540103955096861724391), (+1.34553460514350238431672035587801859, +0.976629727316700414828231885848713126E-1), (+1.71026581351239273485716088186916664, +0.942932343142161508241575868519041421), (+1.46630642727495188568822772824932757, +0.907742481281603432074548990710426561), (+1.67658390538450298674511144293394791, +0.210753586979982793417415457287476939), (+1.98895249709324433913614675577405503, +0.809832176155961436236055786389836812), (+1.09436584339362601557274915628158725, +0.147654250522569727056230484913042292), (+1.46439575334762273693020209884170244, +0.896699523147191684174873843698569284), (+1.16909501673173239936280350380816542, +0.628441456227641131364648507642416249), (+1.53518599584012884704579130090886778, +0.343806114096655254496243311190160169E-3), (+1.70019205438544368461477788794841255, +0.574284357849907942425939444713755242), (+1.50876625405417654744948372357867885, +0.851026268183604645064330318756872889), (+1.23536785384299368537285587498247293, +0.622958089292787808155990742210069953), (+1.11976630608224334501995162268920567, +0.892229791324619791059603110460421369), (+1.00493470232605117280680014586403699, +0.990042505588885135510762919298843787), (+1.57638278470569057980189687246974931, +0.994814919984728786123901934110379899), (+1.62923587454651574966388972076789232, +0.971804355029240517398035776350194625), (+1.35426773262835074525166206284819488, +0.985113035084242046192392673058506615), (+1.12684454461651131881605928973268756, +0.602823119941379581783459291843343876), (+1.06157162654334465917871158723541328, +0.646438737655886084447803752839918464), (+1.31833349036493057877098696369083418, +0.860501033444184762208074147181077273), (+1.93490970615835746551710019756753193, +0.320483624140162187869391598075225290E-1), (+1.29017325507015668034850045829455223, +0.519188374132504256944698524254595356E-1), (+1.97383265201301732557068645386789597, +0.374557286944349616671582973246316912), (+1.04697821545607003855720073216593212, +0.342041819503074399023305080930037344), (+1.72215097225813653944700305332673780, +0.995118552032747488807531838327696412), (+1.23345288062673518780416927661031979, +0.500963476153975241584824066630389899), (+1.34950580049433900792863216983692719, +0.918054110457047236896764963103023049), (+1.90633647867895866517317214888027339, +0.945338144776406460458645173077833816), (+1.41465433646129921024276275740365441, +0.281205912227819749163896829338552707), (+1.30500202836711460376223192049517361, +0.843175123032303689352921484656284308), (+1.33397191841722899864066330232386310, +0.999795529144702676864933456731511457), (+1.35108006767304223904611033622006422, +0.385644239669130201377493582386313798), (+1.94304670923862680437272229542546933, +0.910901035650455914253489008168829148), (+1.53755098484172110959881865488697974, +0.249639155829163019191248118762312353), (+1.50464815301078122858030833157901025, +0.864814788703948416734324229534813856), (+1.29851067637576527253831987646867269, +0.851004734090865621148414688367766353E-1), (+1.93193465177449812217105928399699493, +0.669577666223105967570005662531165041), (+1.22548902988023788004557284087424726, +0.592525209058477489762288253732140098), (+1.77865210765680628973505256526037274, +0.300306291364506360327752514052997453E-1), (+1.56403384049836441814120892625401843, +0.519908861535327156761444403401683993)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+22

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.49177575, +1.54055882, +1.16181755, +1.50730741, +1.28395844, +1.48779964, +1.38941097, +1.64328003, +1.35788310, +1.24217761, +1.09134459, +1.53680825, +1.87066793, +1.77201843, +1.25089407, +1.54413188, +1.42249036, +1.29456306, +1.31043172, +1.13139009, +1.33254170, +1.82699728

262

263adat = getFFTR(getFFTF(data)) / size(data)

264adat

265+1.49177551, +1.54055858, +1.16181755, +1.50730777, +1.28395832, +1.48779941, +1.38941109, +1.64328039, +1.35788286, +1.24217713, +1.09134531, +1.53680909, +1.87066853, +1.77201915, +1.25089371, +1.54413140, +1.42249048, +1.29456341, +1.31043160, +1.13138974, +1.33254170, +1.82699776

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+45

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.1813465962535046, +1.1819901533834587, +1.6665241986692094, +1.4893224914366971, +1.1658757734826342, +1.7048546749506144, +1.7396375428125559, +1.6800607760218649, +1.5428069956776562, +1.8707876903304235, +1.6320670505401438, +1.2174670598545596, +1.6240018810461025, +1.2223128475471148, +1.4707104489303133, +1.3110076383161653, +1.0833731961297661, +1.8673388462513003, +1.5616578338403457, +1.5500372712733221, +1.7750957465268091, +1.4807753348818726, +1.1981987930190283, +1.0905426094641024, +1.9821808700229335, +1.1642417876226636, +1.8658744038938107, +1.3006535851463967, +1.6468872040610445, +1.4401161718703772, +1.4102650744244736, +1.5542772489022385, +1.5680630787374330, +1.2597917415145403, +1.7998197920247436, +1.7827336576006028, +1.4673009741582603, +1.9821318842536380, +1.7355494708417369, +1.1317849518522989, +1.2002860561033573, +1.7431550068899386, +1.4045954757863854, +1.1242847500477717, +1.4282277546667030

279

280adat = getFFTR(getFFTF(data)) / size(data)

281adat

282+1.1813465962535046, +1.1819901533834589, +1.6665241986692094, +1.4893224914366974, +1.1658757734826344, +1.7048546749506146, +1.7396375428125559, +1.6800607760218649, +1.5428069956776569, +1.8707876903304230, +1.6320670505401438, +1.2174670598545592, +1.6240018810461021, +1.2223128475471148, +1.4707104489303131, +1.3110076383161651, +1.0833731961297663, +1.8673388462512996, +1.5616578338403453, +1.5500372712733217, +1.7750957465268085, +1.4807753348818724, +1.1981987930190283, +1.0905426094641024, +1.9821808700229333, +1.1642417876226641, +1.8658744038938100, +1.3006535851463963, +1.6468872040610443, +1.4401161718703765, +1.4102650744244736, +1.5542772489022385, +1.5680630787374332, +1.2597917415145401, +1.7998197920247441, +1.7827336576006021, +1.4673009741582601, +1.9821318842536382, +1.7355494708417363, +1.1317849518522984, +1.2002860561033573, +1.7431550068899386, +1.4045954757863852, +1.1242847500477720, +1.4282277546667028

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+86

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.61515577346072009477088543863974778, +1.77881159878037477420067630903590907, +1.09585952259866742018994334265896694, +1.03491358043891323262714124979242545, +1.38258614765431963548291404105260351, +1.88305734617691777310870560919791161, +1.36497128386061708722097489954819025, +1.50683862497650675299833995229400254, +1.30098183461969010184549168233163137, +1.49618921218797251605397270010673071, +1.95480064070436376074871490102372428, +1.78897135907778796275870923959556675, +1.74434066306169680681376493508210936, +1.98697346868020582204912914151148878, +1.63588841048974832621012741482800525, +1.11200292520967632902388176177518017, +1.03176352660693005100166215354245772, +1.27316078392640791762902462930125097, +1.79716446172488735313013857116688149, +1.28016384803238368634740123510740399, +1.41597821442828438762093131207928095, +1.12030006381563677692173710521615935, +1.20247086900458597531609160859562518, +1.18670971499381203746968546558686984, +1.52284591193970909855123730070802614, +1.74515046313890336353174134510609416, +1.93905149039532195265564744185970679, +1.64851873801874407897921430758956758, +1.37317758784243706212087879228863901, +1.29212557162350650186118220399490878, +1.51703140120619833021949907734093651, +1.36495354533084100684377037551450674, +1.91720745535205028801672377159290322, +1.21077644948162896784122998560411345, +1.20923943753574408787599763794507082, +1.18121968178235042370306212589047841, +1.08804528742540814054249922868182380, +1.53119379765557834569775529254917666, +1.44588359734548043794360562954519298, +1.94037717170326385142269855101358754, +1.90645206973690953324473597999973632, +1.88854509989906351228157367468990241, +1.30898230032399211715477043810979671, +1.63323802456616619017794790376572920, +1.65863292797550456444702956054581462, +1.27677405888031215235204722307760522, +1.72727366601540561547743266867633280, +1.57811737902647959041386576027441347, +1.99441756351816055185852555073880176, +1.19547583399589780848247171833749085, +1.89956445182067122362445675950023700, +1.74314986661333730212815700150493129, +1.17583217317673481984009217828458685, +1.58984743460883002187673540829302109, +1.30474886183330032474314781935420891, +1.90508777039111644225321710275153235, +1.75526428018061916730344850286383335, +1.87649024838731388187100860006024180, +1.61070778399310359871379643795008526, +1.06953085836566307680312667045548136, +1.66893482456201267901239088664374069, +1.46887240838970839988125648445853711, +1.57748030624747967154563572500512098, +1.25470856403015543891859184657896681, +1.55670609404935485344027681113532624, +1.19064065819092629238704485761470919, +1.57066137693923318058278860466012164, +1.64010096959316658563012180709319122, +1.93455068313410919553612919320033720, +1.53010255572350011815906942018049461, +1.43357072106467927449494389563677173, +1.77954563821314580684032772617588470, +1.52447154869472581772107510892385251, +1.23725030090014585494479026237764912, +1.12384178860621645854549372251320040, +1.78511645617035111675306455858314597, +1.94807722445548081308383966975840291, +1.93810964676643318547717605145120676, +1.76164223609877698477106486094175326, +1.05606983663044156700024876341650960, +1.88601865826612155462339769150388813, +1.75041624350510056264817278559944632, +1.07507922071399727875192536711767184, +1.45341852870684961419139759145789142, +1.10117045641500141445453461708285909, +1.29743583291751522714993423094923935

296

297adat = getFFTR(getFFTF(data)) / size(data)

298adat

299+1.61515577346072009477088543863974778, +1.77881159878037477420067630903590888, +1.09585952259866742018994334265896771, +1.03491358043891323262714124979242622, +1.38258614765431963548291404105260294, +1.88305734617691777310870560919791007, +1.36497128386061708722097489954819121, +1.50683862497650675299833995229400196, +1.30098183461969010184549168233163175, +1.49618921218797251605397270010673109, +1.95480064070436376074871490102372293, +1.78897135907778796275870923959556656, +1.74434066306169680681376493508210898, +1.98697346868020582204912914151148532, +1.63588841048974832621012741482800428, +1.11200292520967632902388176177518229, +1.03176352660693005100166215354246099, +1.27316078392640791762902462930125059, +1.79716446172488735313013857116687937, +1.28016384803238368634740123510740419, +1.41597821442828438762093131207928075, +1.12030006381563677692173710521616050, +1.20247086900458597531609160859562730, +1.18670971499381203746968546558687080, +1.52284591193970909855123730070802498, +1.74515046313890336353174134510609089, +1.93905149039532195265564744185970313, +1.64851873801874407897921430758956469, +1.37317758784243706212087879228863940, +1.29212557162350650186118220399490897, +1.51703140120619833021949907734093786, +1.36495354533084100684377037551450423, +1.91720745535205028801672377159289474, +1.21077644948162896784122998560411403, +1.20923943753574408787599763794507602, +1.18121968178235042370306212589048072, +1.08804528742540814054249922868182631, +1.53119379765557834569775529254917627, +1.44588359734548043794360562954519703, +1.94037717170326385142269855101358350, +1.90645206973690953324473597999972534, +1.88854509989906351228157367468989894, +1.30898230032399211715477043810981038, +1.63323802456616619017794790376573074, +1.65863292797550456444702956054581693, +1.27677405888031215235204722307761542, +1.72727366601540561547743266867633069, +1.57811737902647959041386576027440808, +1.99441756351816055185852555073879945, +1.19547583399589780848247171833749875, +1.89956445182067122362445675950023200, +1.74314986661333730212815700150492609, +1.17583217317673481984009217828459282, +1.58984743460883002187673540829302282, +1.30474886183330032474314781935420987, +1.90508777039111644225321710275152734, +1.75526428018061916730344850286383046, +1.87649024838731388187100860006023602, +1.61070778399310359871379643795008410, +1.06953085836566307680312667045548540, +1.66893482456201267901239088664374011, +1.46887240838970839988125648445853441, +1.57748030624747967154563572500511983, +1.25470856403015543891859184657896758, +1.55670609404935485344027681113532624, +1.19064065819092629238704485761471016, +1.57066137693923318058278860466012203, +1.64010096959316658563012180709318891, +1.93455068313410919553612919320033547, +1.53010255572350011815906942018049558, +1.43357072106467927449494389563677288, +1.77954563821314580684032772617588181, +1.52447154869472581772107510892385213, +1.23725030090014585494479026237765162, +1.12384178860621645854549372251320368, +1.78511645617035111675306455858314443, +1.94807722445548081308383966975840137, +1.93810964676643318547717605145120521, +1.76164223609877698477106486094175288, +1.05606983663044156700024876341651211, +1.88601865826612155462339769150388813, +1.75041624350510056264817278559944440, +1.07507922071399727875192536711767242, +1.45341852870684961419139759145789122, +1.10117045641500141445453461708286005, +1.29743583291751522714993423094923935

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+71

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.44100142, +0.757094622E-1), (+1.29741859, +0.602015615), (+1.93588972, +0.253844261E-1), (+1.95627570, +0.554118156), (+1.71114767, +0.524350286), (+1.76307487, +0.648116529), (+1.02955115, +0.540901661), (+1.99917984, +0.517562032E-1), (+1.93250942, +0.267691672), (+1.17104900, +0.136492729), (+1.58345711, +0.517733872), (+1.03676677, +0.310783803), (+1.59105635, +0.464811623), (+1.92869616, +0.397209406), (+1.67296386, +0.817763031), (+1.88479662, +0.628212631), (+1.01974201, +0.820081234), (+1.42927742, +0.594394982), (+1.33975172, +0.631697118), (+1.54465663, +0.884961724), (+1.66991234, +0.596210897), (+1.09505987, +0.952862918), (+1.81265724, +0.140543878), (+1.41338587, +0.410335422), (+1.14392853, +0.208722532), (+1.30568337, +0.215301156), (+1.64138734, +0.301196635), (+1.82067633, +0.169778466), (+1.07659388, +0.548833609E-2), (+1.76824450, +0.358845949), (+1.30043578, +0.136257231), (+1.39482832, +0.425848186), (+1.83416653, +0.827611685), (+1.90233696, +0.283826590), (+1.25876141, +0.114511728), (+1.41483200, +0.464268863), (+1.91092587, +0.852873743), (+1.70904303, +0.781964242), (+1.46176410, +0.759457946E-1), (+1.85104251, +0.699441135), (+1.58474100, +0.838828206), (+1.08121991, +0.751400650), (+1.82347381, +0.720132589), (+1.69266701, +0.774314463), (+1.91121435, +0.514704585E-1), (+1.94142747, +0.422579825), (+1.45909929, +0.159488857), (+1.25993752, +0.548188388), (+1.45443225, +0.872694850E-1), (+1.40503359, +0.812651813), (+1.79918325, +0.220757723), (+1.42364085, +0.707023799), (+1.99664330, +0.511830389), (+1.19036460, +0.292279005), (+1.26101375, +0.105300009), (+1.18634415, +0.865622759E-1), (+1.52846599, +0.135344684), (+1.33477557, +0.906273127), (+1.06469882, +0.875626087), (+1.37722588, +0.938569725), (+1.24156570, +0.905514956), (+1.14229226, +0.694124162), (+1.76892555, +0.669964731), (+1.79674637, +0.622829378), (+1.26691937, +0.600372314), (+1.54603958, +0.831449032E-1), (+1.07469666, +0.535260141), (+1.87304175, +0.221630037), (+1.42442298, +0.129440367), (+1.79371214, +0.679461002), (+1.58905602, +0.707746327)

313

314adat = getFFTR(getFFTF(data)) / size(data)

315adat

316(+1.44100046, +0.757090673E-1), (+1.29741907, +0.602015615), (+1.93588948, +0.253844187E-1), (+1.95627534, +0.554118037), (+1.71114743, +0.524350226), (+1.76307464, +0.648116410), (+1.02955103, +0.540901482), (+1.99917972, +0.517561473E-1), (+1.93250978, +0.267691821), (+1.17104912, +0.136492684), (+1.58345723, +0.517733812), (+1.03676713, +0.310783803), (+1.59105635, +0.464811504), (+1.92869627, +0.397209406), (+1.67296422, +0.817762971), (+1.88479638, +0.628212750), (+1.01974213, +0.820081234), (+1.42927742, +0.594395161), (+1.33975160, +0.631697118), (+1.54465628, +0.884961724), (+1.66991210, +0.596210837), (+1.09505999, +0.952862799), (+1.81265736, +0.140543759), (+1.41338599, +0.410335422), (+1.14392817, +0.208722264), (+1.30568337, +0.215301037), (+1.64138699, +0.301196635), (+1.82067633, +0.169778392), (+1.07659352, +0.548816752E-2), (+1.76824427, +0.358846039), (+1.30043602, +0.136257246), (+1.39482820, +0.425848156), (+1.83416688, +0.827611566), (+1.90233684, +0.283826679), (+1.25876117, +0.114511728), (+1.41483188, +0.464268744), (+1.91092563, +0.852873683), (+1.70904279, +0.781964183), (+1.46176410, +0.759457871E-1), (+1.85104263, +0.699441075), (+1.58474112, +0.838828027), (+1.08122003, +0.751400828), (+1.82347345, +0.720132709), (+1.69266677, +0.774314344), (+1.91121423, +0.514703616E-1), (+1.94142735, +0.422579587), (+1.45909941, +0.159488752), (+1.25993729, +0.548188090), (+1.45443237, +0.872694328E-1), (+1.40503359, +0.812651753), (+1.79918325, +0.220757574), (+1.42364061, +0.707023859), (+1.99664307, +0.511830270), (+1.19036460, +0.292279065), (+1.26101387, +0.105300233), (+1.18634415, +0.865621716E-1), (+1.52846587, +0.135344714), (+1.33477592, +0.906273127), (+1.06469905, +0.875626147), (+1.37722600, +0.938569605), (+1.24156606, +0.905515015), (+1.14229226, +0.694124043), (+1.76892579, +0.669964731), (+1.79674661, +0.622829497), (+1.26691902, +0.600372255), (+1.54603934, +0.831446052E-1), (+1.07469654, +0.535260081), (+1.87304151, +0.221630037), (+1.42442262, +0.129440218), (+1.79371178, +0.679461002), (+1.58905637, +0.707746327)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+55

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.9739628827072075, +0.50422999007448177E-1), (+1.2419089215025374, +0.59754145620139365E-1), (+1.8135229424684152, +0.67558210646547767), (+1.1017511280562207, +0.87932554922387973), (+1.2860335422866052, +0.53199075604346091), (+1.2501284275742637, +0.66433413074529912), (+1.7141638935989145, +0.28561218217842699), (+1.7336615456584483, +0.17097038895924099), (+1.6413349960870636, +0.36305631056731591), (+1.0100318172705514, +0.62855369310194864), (+1.5848650579089172, +0.60755122936224226), (+1.0848573380696793, +0.19639393919603865), (+1.5358678391204483, +0.15502164556940412), (+1.5678018704146615, +0.55302154281938365), (+1.6046497424444379, +0.93286963671669965), (+1.8434418579133522, +0.88087800045210618), (+1.0717639344658214, +0.16741454925884214), (+1.9670849699866890, +0.18134301163815092), (+1.4285550100048687, +0.75622467648087799), (+1.0350708242180922, +0.94617997209824156), (+1.3223160899723316, +0.61671873131656818), (+1.2127205500432823, +0.71175003588035990), (+1.8097554065210280, +0.98126782377785493E-1), (+1.2688785093262134, +0.78693330214786827), (+1.2524875963788855, +0.16261807221842017), (+1.4631116857263577, +0.43345142046049689), (+1.2249192164256959, +0.40290075241379486), (+1.4271204758735521, +0.71269408659853895), (+1.7317434514878731, +0.67461549610637428), (+1.9636236050464029, +0.76479137443504608), (+1.9833927813813004, +0.66565956369023493), (+1.6622587174467141, +0.27248480149762255), (+1.5444172582835067, +0.46333464490009268), (+1.0821966404551764, +0.40164067764746736), (+1.6449154987226722, +0.20313126310748075), (+1.0979114319653984, +0.29991292951213777), (+1.7775867040802225, +0.71100053906636884), (+1.8865147799266815, +0.64519123668749645), (+1.4138373051001953, +0.28615443282072317), (+1.6786728606970946, +0.84552232956656670), (+1.1014460017028118, +0.31399501040177502), (+1.2293338104799985, +0.89951606195135769), (+1.0834256439157124, +0.45409624463776643), (+1.3545002120808380, +0.30837474089682637), (+1.4379635628911291, +0.74529324513008122), (+1.3526950119281294, +0.10177759838797928), (+1.4553631813391923, +0.66082288143379686E-1), (+1.8290543734317648, +0.37058307097305532), (+1.5266280448135694, +0.92236348277497460), (+1.3516813671098966, +0.40904448910183067), (+1.2027269158817799, +0.68842466470960673), (+1.7012857341330352, +0.32735062738136567), (+1.7576975319015240, +0.35638270356547785), (+1.0586459831517987, +0.75557898776193355), (+1.1749744890717779, +0.33770455562007673)

330

331adat = getFFTR(getFFTF(data)) / size(data)

332adat

333(+1.9739628827072075, +0.50422999007448122E-1), (+1.2419089215025376, +0.59754145620139601E-1), (+1.8135229424684152, +0.67558210646547812), (+1.1017511280562204, +0.87932554922388007), (+1.2860335422866052, +0.53199075604346113), (+1.2501284275742639, +0.66433413074529901), (+1.7141638935989147, +0.28561218217842710), (+1.7336615456584490, +0.17097038895924110), (+1.6413349960870640, +0.36305631056731613), (+1.0100318172705518, +0.62855369310194908), (+1.5848650579089176, +0.60755122936224271), (+1.0848573380696789, +0.19639393919603873), (+1.5358678391204486, +0.15502164556940426), (+1.5678018704146610, +0.55302154281938376), (+1.6046497424444381, +0.93286963671669954), (+1.8434418579133525, +0.88087800045210596), (+1.0717639344658212, +0.16741454925884208), (+1.9670849699866886, +0.18134301163815097), (+1.4285550100048687, +0.75622467648087766), (+1.0350708242180922, +0.94617997209824167), (+1.3223160899723319, +0.61671873131656851), (+1.2127205500432823, +0.71175003588036001), (+1.8097554065210277, +0.98126782377785299E-1), (+1.2688785093262134, +0.78693330214786850), (+1.2524875963788857, +0.16261807221842026), (+1.4631116857263577, +0.43345142046049695), (+1.2249192164256955, +0.40290075241379486), (+1.4271204758735521, +0.71269408659853872), (+1.7317434514878725, +0.67461549610637450), (+1.9636236050464029, +0.76479137443504608), (+1.9833927813813008, +0.66565956369023493), (+1.6622587174467143, +0.27248480149762278), (+1.5444172582835070, +0.46333464490009285), (+1.0821966404551755, +0.40164067764746708), (+1.6449154987226724, +0.20313126310748111), (+1.0979114319653984, +0.29991292951213805), (+1.7775867040802222, +0.71100053906636895), (+1.8865147799266813, +0.64519123668749612), (+1.4138373051001951, +0.28615443282072311), (+1.6786728606970944, +0.84552232956656692), (+1.1014460017028120, +0.31399501040177480), (+1.2293338104799985, +0.89951606195135769), (+1.0834256439157122, +0.45409624463776677), (+1.3545002120808383, +0.30837474089682665), (+1.4379635628911287, +0.74529324513008111), (+1.3526950119281300, +0.10177759838797949), (+1.4553631813391925, +0.66082288143379644E-1), (+1.8290543734317652, +0.37058307097305543), (+1.5266280448135685, +0.92236348277497460), (+1.3516813671098966, +0.40904448910183072), (+1.2027269158817799, +0.68842466470960673), (+1.7012857341330347, +0.32735062738136572), (+1.7576975319015244, +0.35638270356547780), (+1.0586459831517980, +0.75557898776193400), (+1.1749744890717784, +0.33770455562007679)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+73

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.27363587402908299425223670292089942, +0.629399530404708271122901750053481557), (+1.76197151826862685713034782315215139, +0.255209349923337208400337891891867295), (+1.64217609969409529609845203955001397, +0.781279405261820211155376741933805346), (+1.08829624239889732858809185002202919, +0.657153146901135756757397650742787234), (+1.59178947811330370060577965993186935, +0.496712010811795085077328447135588603), (+1.40355875705307425102329741227323040, +0.378111273883155252420371287396262128), (+1.62380608329175886572337635660022880, +0.953161175702127749460936601128075711), (+1.01905338065381305465822596888507788, +0.180672609863250319604884138552845646), (+1.22502187682364657641376340850418015, +0.711273794032558504162619312695944142E-1), (+1.23957951131784521044936549016787509, +0.172401970557142510261152041862977535), (+1.18981084697150693479333051780546608, +0.142556196702460650441348611528684969), (+1.14448327492290532033595596275768663, +0.625961473002070141690173577742014210), (+1.03482296025788981134034934647158605, +0.873998327035165911960896199563077360), (+1.45964766276083528469444922154491947, +0.208855577768708843568176176143663577), (+1.47952121125972307353746681587889226, +0.614820624492057369067844801909260849), (+1.92144340120055525324117914666272459, +0.255470310512922095301421572282293510E-1), (+1.95287643974587650436995546116601036, +0.936397775818476939443885504450318292), (+1.39574069713538007637017634778113737, +0.616677214634708593102856314880467496), (+1.61360370253748874020179619653176995, +0.697089521140154824975675466278446013), (+1.90131148916221681748920770006917308, +0.157315705597910532756167617867475890), (+1.86252319532307040276484229655319296, +0.969937316848913534515791403055542679), (+1.27018600362397767185357206512343212, +0.378913999943785368886620689605533116), (+1.99340777924800984667057621246169903, +0.952223481895245627952211503456491870), (+1.75349521239303237158950718501322696, +0.238146040413076744350125111222110298), (+1.73791220334991781677676559625336534, +0.556423137900987929539251300227234566), (+1.38445189896155894187523256034235153, +0.934351971334810600477558575998605643E-1), (+1.47310558901451361332942179474445263, +0.175995312767559886844182955339240257), (+1.82040933989069602104767182351135927, +0.739935807015280902336767068298541866), (+1.77630320973268166926607659290559342, +0.591020852495117059810165431997656340), (+1.13450515467255670830199178518824284, +0.794356193370758855443426463399681838), (+1.72243402321588298415890383256148725, +0.870930429190202108919423676453749869), (+1.70169893993981738674780227411585228, +0.666616298214446550318320309599107358E-1), (+1.97111179186899823539607266799396688, +0.525517881637937333947256758503204430E-1), (+1.50332265379523527849486493207027560, +0.610480702456092655644853060640931603), (+1.81100371608492958315586295885811697, +0.225706702022603800441315014004663407), (+1.81989733768782629378216971861897764, +0.963535202295899395708091206383469158), (+1.79666546751801333954206032805133511, +0.338261022966235024180156078345883207), (+1.40490901922462907195758827110625822, +0.438785930379335477915441551408843376), (+1.19487612722032561174453423017708258, +0.461831928127758122229484305201350826), (+1.20220832376715431644405447752226302, +0.598354000164636100412797609316107012), (+1.76619495003843401307684966993581040, +0.494145059786383303827405730291511879), (+1.52621814616863563589282751462100653, +0.928257218783409380882638207345824359), (+1.39749112573998776576882120838946467, +0.200386844747012695182129196048281934), (+1.30142478651934794728767948183426480, +0.618279442302009886547339122500170255), (+1.16757256412281921825311919676683559, +0.205802692512517873521034276211175051), (+1.24204732573911614384450687003330648, +0.876711460195187622849513617361539672), (+1.25908404779246457956626374382643465, +0.185954469276022914157222529661328404), (+1.22002238182569814410281080548923312, +0.497539393979904358917249285883140182), (+1.82963769381737937862137395417537873, +0.941653690668032995689892320082041984), (+1.72172448136999428066997852979501208, +0.107836307246568033424846148910203939), (+1.60303237121640864773129712475697874, +0.929501385960116618200976306132887553), (+1.85456275230538854359001642688073290, +0.768666509725983533862655795009865582), (+1.72263884362263146835636406648551753, +0.556697869021451113894081436747236336), (+1.61809793450123223674836199401419993, +0.211570668236271467963155006595103184), (+1.86567116352062122034270446578585203, +0.748834054790843143889654155100331331), (+1.19159119857133669156222790862566768, +0.519377187323106167861183395019600004), (+1.85141564116264006377618271043973974, +0.863098346603953877678842895129288786), (+1.12460145798402367507148587245702774, +0.382654777700915661099657997793840977), (+1.92508229315486442134795453696762933, +0.227729204995856239245888002353414214), (+1.89073108441255075841712519829959754, +0.164599592639521815113675780157763233), (+1.11388102556919942632649356374796791, +0.911894716383468632466894829221132565), (+1.97433569417512868870473567497672337, +0.549327463144211237819022879443871440), (+1.55596148908803719974749701586615982, +0.258108078528831177238408761445258074), (+1.23270119667482453834820843328888085, +0.867540247937324090508482244343201753), (+1.82175419346441075348156001569875726, +0.451046871629394678263506528457363754), (+1.98419520351577433151270257390537319, +0.203528794186679353750360830260381811), (+1.44702960559220185689408335167638051, +0.139425151156340269083503649636751080), (+1.81284919796216867456699123059869655, +0.785657640736364791353119389051532204), (+1.69216891636711361377514625454645587, +0.970344968670790126108619957721663109), (+1.87950613485677576930237215577481468, +0.912379264164487018595596150181314282), (+1.95827906263074680944285014439624126, +0.608253406184805031340179274153619117), (+1.14854404941681745037563920693458913, +0.446236263528975839071555891779040777), (+1.97070305807995017074943715532415430, +0.907547635116061703858428313138232458)

347

348adat = getFFTR(getFFTF(data)) / size(data)

349adat

350(+1.27363587402908299425223670292089075, +0.629399530404708271122901750053478475), (+1.76197151826862685713034782315215178, +0.255209349923337208400337891891867392), (+1.64217609969409529609845203955001455, +0.781279405261820211155376741933805538), (+1.08829624239889732858809185002202958, +0.657153146901135756757397650742787234), (+1.59178947811330370060577965993186935, +0.496712010811795085077328447135588651), (+1.40355875705307425102329741227323079, +0.378111273883155252420371287396262225), (+1.62380608329175886572337635660022919, +0.953161175702127749460936601128076192), (+1.01905338065381305465822596888507807, +0.180672609863250319604884138552846055), (+1.22502187682364657641376340850418015, +0.711273794032558504162619312695947271E-1), (+1.23957951131784521044936549016787509, +0.172401970557142510261152041862977752), (+1.18981084697150693479333051780546608, +0.142556196702460650441348611528685089), (+1.14448327492290532033595596275768624, +0.625961473002070141690173577742014210), (+1.03482296025788981134034934647158663, +0.873998327035165911960896199563077842), (+1.45964766276083528469444922154491928, +0.208855577768708843568176176143663529), (+1.47952121125972307353746681587889303, +0.614820624492057369067844801909261042), (+1.92144340120055525324117914666272459, +0.255470310512922095301421572282291073E-1), (+1.95287643974587650436995546116600978, +0.936397775818476939443885504450318196), (+1.39574069713538007637017634778113641, +0.616677214634708593102856314880467592), (+1.61360370253748874020179619653176976, +0.697089521140154824975675466278445917), (+1.90131148916221681748920770006917404, +0.157315705597910532756167617867475890), (+1.86252319532307040276484229655319296, +0.969937316848913534515791403055542679), (+1.27018600362397767185357206512343116, +0.378913999943785368886620689605533019), (+1.99340777924800984667057621246169884, +0.952223481895245627952211503456491677), (+1.75349521239303237158950718501322696, +0.238146040413076744350125111222110586), (+1.73791220334991781677676559625336553, +0.556423137900987929539251300227234759), (+1.38445189896155894187523256034235114, +0.934351971334810600477558575998606486E-1), (+1.47310558901451361332942179474445244, +0.175995312767559886844182955339240305), (+1.82040933989069602104767182351135908, +0.739935807015280902336767068298541866), (+1.77630320973268166926607659290559285, +0.591020852495117059810165431997656340), (+1.13450515467255670830199178518824246, +0.794356193370758855443426463399681935), (+1.72243402321588298415890383256148687, +0.870930429190202108919423676453749869), (+1.70169893993981738674780227411585228, +0.666616298214446550318320309599107839E-1), (+1.97111179186899823539607266799396649, +0.525517881637937333947256758503204851E-1), (+1.50332265379523527849486493207027522, +0.610480702456092655644853060640931699), (+1.81100371608492958315586295885811639, +0.225706702022603800441315014004663479), (+1.81989733768782629378216971861897648, +0.963535202295899395708091206383469255), (+1.79666546751801333954206032805133357, +0.338261022966235024180156078345883303), (+1.40490901922462907195758827110625629, +0.438785930379335477915441551408843280), (+1.19487612722032561174453423017708123, +0.461831928127758122229484305201350826), (+1.20220832376715431644405447752226205, +0.598354000164636100412797609316107012), (+1.76619495003843401307684966993581021, +0.494145059786383303827405730291512312), (+1.52621814616863563589282751462100595, +0.928257218783409380882638207345824263), (+1.39749112573998776576882120838946467, +0.200386844747012695182129196048282103), (+1.30142478651934794728767948183426461, +0.618279442302009886547339122500170352), (+1.16757256412281921825311919676683521, +0.205802692512517873521034276211175147), (+1.24204732573911614384450687003330571, +0.876711460195187622849513617361539287), (+1.25908404779246457956626374382643407, +0.185954469276022914157222529661328260), (+1.22002238182569814410281080548923254, +0.497539393979904358917249285883140567), (+1.82963769381737937862137395417537854, +0.941653690668032995689892320082042176), (+1.72172448136999428066997852979501227, +0.107836307246568033424846148910203663), (+1.60303237121640864773129712475697854, +0.929501385960116618200976306132887649), (+1.85456275230538854359001642688073251, +0.768666509725983533862655795009865485), (+1.72263884362263146835636406648551676, +0.556697869021451113894081436747236047), (+1.61809793450123223674836199401419954, +0.211570668236271467963155006595103136), (+1.86567116352062122034270446578585318, +0.748834054790843143889654155100331716), (+1.19159119857133669156222790862566730, +0.519377187323106167861183395019599812), (+1.85141564116264006377618271043973878, +0.863098346603953877678842895129288978), (+1.12460145798402367507148587245702736, +0.382654777700915661099657997793840640), (+1.92508229315486442134795453696762933, +0.227729204995856239245888002353414358), (+1.89073108441255075841712519829959831, +0.164599592639521815113675780157763353), (+1.11388102556919942632649356374796791, +0.911894716383468632466894829221132758), (+1.97433569417512868870473567497672395, +0.549327463144211237819022879443871536), (+1.55596148908803719974749701586616001, +0.258108078528831177238408761445257833), (+1.23270119667482453834820843328888065, +0.867540247937324090508482244343201850), (+1.82175419346441075348156001569875803, +0.451046871629394678263506528457363947), (+1.98419520351577433151270257390537339, +0.203528794186679353750360830260381763), (+1.44702960559220185689408335167638071, +0.139425151156340269083503649636751585), (+1.81284919796216867456699123059869732, +0.785657640736364791353119389051532397), (+1.69216891636711361377514625454645625, +0.970344968670790126108619957721663398), (+1.87950613485677576930237215577481506, +0.912379264164487018595596150181314090), (+1.95827906263074680944285014439624165, +0.608253406184805031340179274153619310), (+1.14854404941681745037563920693458952, +0.446236263528975839071555891779041018), (+1.97070305807995017074943715532415449, +0.907547635116061703858428313138232843)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+50

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.59326625, +1.85517764, +1.02343822, +1.63055325, +1.90924263, +1.87399435, +1.98307872, +1.75119472, +1.87513041, +1.82198977, +1.45819426, +1.72884464, +1.42407072, +1.35854232, +1.80700755, +1.54489636, +1.33726907, +1.92459476, +1.13861299, +1.19871402, +1.14062595, +1.44799709, +1.12482977, +1.67760324, +1.49087632, +1.86782002, +1.05378723, +1.06208086, +1.12432480, +1.33299446, +1.50911033, +1.02440310, +1.83056891, +1.64820480, +1.39588439, +1.51698589, +1.40143204, +1.77653575, +1.35666919, +1.95691776, +1.02710962, +1.09618378, +1.92107296, +1.80296493, +1.87539721, +1.87036681, +1.00696003, +1.11412978, +1.78579926, +1.44666624

364

365adat = getFFTR(getFFTF(data)) / size(data)

366adat

367+1.59326565, +1.85517776, +1.02343810, +1.63055325, +1.90924215, +1.87399435, +1.98307836, +1.75119460, +1.87513030, +1.82198989, +1.45819402, +1.72884476, +1.42407084, +1.35854280, +1.80700743, +1.54489660, +1.33726931, +1.92459488, +1.13861310, +1.19871438, +1.14062583, +1.44799709, +1.12482977, +1.67760372, +1.49087620, +1.86782014, +1.05378723, +1.06208086, +1.12432492, +1.33299482, +1.50911021, +1.02440310, +1.83056879, +1.64820528, +1.39588404, +1.51698613, +1.40143204, +1.77653575, +1.35666943, +1.95691824, +1.02710938, +1.09618390, +1.92107320, +1.80296540, +1.87539709, +1.87036717, +1.00696015, +1.11412978, +1.78579938, +1.44666636

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+67

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.6700856602142498, +1.2963968850151013, +1.8837305147593153, +1.8922019890371340, +1.8213364569548325, +1.2885748248112017, +1.9841032831542931, +1.7981389543280812, +1.6330362126403002, +1.8030653035479649, +1.7385142621821374, +1.3157625904776575, +1.8847953197760594, +1.2378378971559116, +1.0553290631982604, +1.1894754721332221, +1.2142072741461285, +1.7891662834530688, +1.1545615710890789, +1.1881136486910733, +1.4272884826599672, +1.2455605463568873, +1.8657952254258801, +1.8240685977875211, +1.3112417340268654, +1.0846944097513651, +1.1441053409630340, +1.2470007140924713, +1.9550777150999494, +1.2947347209269631, +1.8201966650498047, +1.3885880905433137, +1.1869394988565962, +1.8823496366717292, +1.0219189008292462, +1.7211184142211078, +1.3935191637849322, +1.5634706979749529, +1.9845707931604282, +1.2713584876811237, +1.3614944182868418, +1.5110457997690654, +1.6273808281302942, +1.8940809700284387, +1.8480001963232213, +1.7233471016833881, +1.2718950693320554, +1.3471731712485271, +1.8653466036304196, +1.8080071919187335, +1.3725778584030977, +1.4819486751995155, +1.1969412932034582, +1.5529345871891655, +1.9333005167469079, +1.3289130937693305, +1.6871303747437150, +1.3046886845764054, +1.8488930431061210, +1.4547389260620531, +1.3407697319505392, +1.5802380314035007, +1.7337843367275103, +1.8184087363283064, +1.7659517324936973, +1.6516984957756526, +1.4262922665730220

381

382adat = getFFTR(getFFTF(data)) / size(data)

383adat

384+1.6700856602142495, +1.2963968850151020, +1.8837305147593157, +1.8922019890371338, +1.8213364569548345, +1.2885748248112001, +1.9841032831542946, +1.7981389543280828, +1.6330362126403009, +1.8030653035479658, +1.7385142621821386, +1.3157625904776582, +1.8847953197760616, +1.2378378971559096, +1.0553290631982601, +1.1894754721332195, +1.2142072741461283, +1.7891662834530695, +1.1545615710890786, +1.1881136486910751, +1.4272884826599681, +1.2455605463568886, +1.8657952254258823, +1.8240685977875233, +1.3112417340268669, +1.0846944097513642, +1.1441053409630335, +1.2470007140924722, +1.9550777150999534, +1.2947347209269660, +1.8201966650498063, +1.3885880905433134, +1.1869394988565918, +1.8823496366717296, +1.0219189008292535, +1.7211184142211022, +1.3935191637849307, +1.5634706979749549, +1.9845707931604313, +1.2713584876811233, +1.3614944182868438, +1.5110457997690652, +1.6273808281302944, +1.8940809700284398, +1.8480001963232229, +1.7233471016833903, +1.2718950693320563, +1.3471731712485284, +1.8653466036304229, +1.8080071919187348, +1.3725778584030968, +1.4819486751995146, +1.1969412932034575, +1.5529345871891642, +1.9333005167469099, +1.3289130937693305, +1.6871303747437170, +1.3046886845764063, +1.8488930431061226, +1.4547389260620527, +1.3407697319505396, +1.5802380314035018, +1.7337843367275105, +1.8184087363283072, +1.7659517324936977, +1.6516984957756522, +1.4262922665730231

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+73

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.89186396416731125797242865892838152, +1.73785594098849285693092362581125895, +1.17365544503009017882709701642166294, +1.40859550444778433144612709996046013, +1.24740131748658727690029265398078713, +1.06535583202123038626387179469416919, +1.46004904946838693197900701849138239, +1.02842679549545623104605755663032878, +1.56032917835120561879613422274168386, +1.80172068727770519484573324418190489, +1.39683329148674133373637058840872112, +1.99733917744614815448436664465759001, +1.74237376233760652103569215514789437, +1.87837566464759398429311498111814843, +1.41685029905643849088364164156828694, +1.10065118368527817969927660248898416, +1.37473268250058526045577326882084491, +1.13283119135172877551966853868270294, +1.16067418231522092185918090865028865, +1.54357082439458648305844506016348422, +1.75183580044451244891874398245832182, +1.28221521874573274911427131012999402, +1.93034414387731079380334352497462356, +1.59919385768758907241039782106365962, +1.84341424274262775548590842429671971, +1.05958413383980886362475105049991682, +1.05912650043788934138998382740257145, +1.46359718006731638795903874292786407, +1.98780160116295706482149531971684994, +1.71700827577696261934412655366048505, +1.01153739872960683424940131108630452, +1.45096290335649467987404307831381410, +1.79514992545739441606876491283823601, +1.01092452213369462100274254125790886, +1.91112304723461673622908530114372446, +1.34753526487534224427330774267397221, +1.50026320522972571314938878703857574, +1.34030294465586744652584522732948298, +1.36665157108471941896917316095181439, +1.92008234853616820137441132354364051, +1.72796553126833296581755457875412765, +1.60989888550242758141322582630399040, +1.79414220534378492010042109213377870, +1.61774491545803269704980396761042391, +1.82313746406526997401523192909444961, +1.11973691246228758002386534165060587, +1.74873837221094719655954691079593592, +1.55314868520231421002170090830507552, +1.08698993148006623815869440151548507, +1.44295981167345149704011673779512595, +1.82713609877289239461576320265164974, +1.44279267664072683944175106518300786, +1.41156345487209323201371409713497828, +1.87669869455087895563566071333368087, +1.52662992718316902957758393602588339, +1.79765903066446317308404930595522910, +1.92232527027761867012786537177714189, +1.53791112269705721648839213978938475, +1.75429942136211566054938806835725816, +1.46842287133065772817103957759397389, +1.58789287746770579421745315671871930, +1.52598800072167127436874948908415180, +1.73579299391843155020407229189286113, +1.87126095441804516604485237183086636, +1.23746026966881861511898823480922770, +1.55690349009392833445277399816784149, +1.33464394467332760529464790651485051, +1.60383155899371040554879513837848380, +1.81671170807730491803114132995713770, +1.60643015535339029676544566866378762, +1.25201261503821249214529738100591553, +1.19284655875129854013073501035895196, +1.23338247140899775394122283094903967

398

399adat = getFFTR(getFFTF(data)) / size(data)

400adat

401+1.89186396416731125797242865892838326, +1.73785594098849285693092362581125972, +1.17365544503009017882709701642166544, +1.40859550444778433144612709996046070, +1.24740131748658727690029265398078751, +1.06535583202123038626387179469417304, +1.46004904946838693197900701849138047, +1.02842679549545623104605755663033591, +1.56032917835120561879613422274168348, +1.80172068727770519484573324418190123, +1.39683329148674133373637058840872825, +1.99733917744614815448436664465758153, +1.74237376233760652103569215514789494, +1.87837566464759398429311498111814072, +1.41685029905643849088364164156828694, +1.10065118368527817969927660248899245, +1.37473268250058526045577326882084067, +1.13283119135172877551966853868270910, +1.16067418231522092185918090865029423, +1.54357082439458648305844506016348365, +1.75183580044451244891874398245830969, +1.28221521874573274911427131013001232, +1.93034414387731079380334352497460469, +1.59919385768758907241039782106366791, +1.84341424274262775548590842429670064, +1.05958413383980886362475105049993492, +1.05912650043788934138998382740258262, +1.46359718006731638795903874292786619, +1.98780160116295706482149531971682837, +1.71700827577696261934412655366047561, +1.01153739872960683424940131108632840, +1.45096290335649467987404307831381371, +1.79514992545739441606876491283820866, +1.01092452213369462100274254125794988, +1.91112304723461673622908530114368556, +1.34753526487534224427330774267398973, +1.50026320522972571314938878703856534, +1.34030294465586744652584522732948702, +1.36665157108471941896917316095182711, +1.92008234853616820137441132354361836, +1.72796553126833296581755457875412611, +1.60989888550242758141322582630399463, +1.79414220534378492010042109213376830, +1.61774491545803269704980396761042950, +1.82313746406526997401523192909443035, +1.11973691246228758002386534165063322, +1.74873837221094719655954691079591878, +1.55314868520231421002170090830507148, +1.08698993148006623815869440151550163, +1.44295981167345149704011673779512749, +1.82713609877289239461576320265163665, +1.44279267664072683944175106518301383, +1.41156345487209323201371409713498676, +1.87669869455087895563566071333366835, +1.52662992718316902957758393602589186, +1.79765903066446317308404930595522564, +1.92232527027761867012786537177713495, +1.53791112269705721648839213978939168, +1.75429942136211566054938806835725296, +1.46842287133065772817103957759397813, +1.58789287746770579421745315671871718, +1.52598800072167127436874948908415373, +1.73579299391843155020407229189285882, +1.87126095441804516604485237183086001, +1.23746026966881861511898823480923521, +1.55690349009392833445277399816783995, +1.33464394467332760529464790651485494, +1.60383155899371040554879513837848399, +1.81671170807730491803114132995713693, +1.60643015535339029676544566866378781, +1.25201261503821249214529738100591803, +1.19284655875129854013073501035895408, +1.23338247140899775394122283094904140

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+56

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.95997858, +0.512694120), (+1.27463615, +0.863530815), (+1.40896952, +0.160411954), (+1.60045195, +0.860221803), (+1.26274681, +0.138477325), (+1.51884341, +0.745059431), (+1.22803855, +0.402396798), (+1.01515830, +0.931959331), (+1.80932474, +0.308108151), (+1.96444952, +0.490681529E-1), (+1.70510101, +0.517784953E-1), (+1.50819850, +0.649306178), (+1.39152157, +0.155263901), (+1.64458966, +0.933545828E-1), (+1.95697296, +0.525501966), (+1.11015534, +0.964162111), (+1.79248762, +0.854686677), (+1.47342324, +0.411286354E-1), (+1.83222306, +0.807049334), (+1.83809996, +0.111611068), (+1.56430292, +0.538924992), (+1.23796439, +0.720065713), (+1.79604888, +0.718820214), (+1.39447141, +0.813880444), (+1.88142943, +0.420997202), (+1.71991205, +0.137159348), (+1.72294378, +0.204869866), (+1.81442618, +0.518472910), (+1.24000955, +0.359893799), (+1.24828827, +0.168270767), (+1.20140362, +0.274070203), (+1.58384323, +0.620199740), (+1.30428994, +0.856589675E-1), (+1.63435602, +0.540959239), (+1.47401083, +0.861887634), (+1.07231331, +0.850325823E-2), (+1.17982006, +0.538528979), (+1.40456700, +0.749005973), (+1.09360051, +0.640325248), (+1.46515024, +0.322836876), (+1.70450759, +0.347918868), (+1.36688185, +0.811837196), (+1.06479335, +0.405020714E-1), (+1.83225489, +0.825654507), (+1.26324344, +0.736865103), (+1.67944050, +0.302938104), (+1.07889581, +0.889328361), (+1.69978118, +0.297883093), (+1.82249832, +0.169902980), (+1.34895539, +0.104978085), (+1.78549290, +0.168776512), (+1.59728646, +0.937940776), (+1.64160824, +0.406046569), (+1.90600896, +0.161030889E-1), (+1.94391775, +0.980736852), (+1.48755860, +0.578200340)

415

416adat = getFFTR(getFFTF(data)) / size(data)

417adat

418(+1.95997894, +0.512694299), (+1.27463615, +0.863530695), (+1.40896952, +0.160411939), (+1.60045218, +0.860221803), (+1.26274693, +0.138477489), (+1.51884353, +0.745059371), (+1.22803843, +0.402396828), (+1.01515853, +0.931959331), (+1.80932450, +0.308108151), (+1.96444952, +0.490681268E-1), (+1.70510137, +0.517786555E-1), (+1.50819862, +0.649306178), (+1.39152169, +0.155263811), (+1.64458966, +0.933546275E-1), (+1.95697320, +0.525502145), (+1.11015511, +0.964161932), (+1.79248774, +0.854686737), (+1.47342360, +0.411288403E-1), (+1.83222318, +0.807049215), (+1.83809984, +0.111611091), (+1.56430268, +0.538925052), (+1.23796475, +0.720065773), (+1.79604876, +0.718820274), (+1.39447117, +0.813880444), (+1.88142967, +0.420997143), (+1.71991229, +0.137159437), (+1.72294390, +0.204869881), (+1.81442583, +0.518472731), (+1.24000967, +0.359893858), (+1.24828804, +0.168270692), (+1.20140350, +0.274070054), (+1.58384347, +0.620199740), (+1.30429018, +0.856590942E-1), (+1.63435590, +0.540959239), (+1.47401083, +0.861887574), (+1.07231355, +0.850331783E-2), (+1.17981982, +0.538528860), (+1.40456688, +0.749005854), (+1.09360063, +0.640325129), (+1.46515059, +0.322837025), (+1.70450771, +0.347918957), (+1.36688173, +0.811837196), (+1.06479359, +0.405022763E-1), (+1.83225465, +0.825654328), (+1.26324356, +0.736865163), (+1.67944074, +0.302938282), (+1.07889593, +0.889328539), (+1.69978130, +0.297883093), (+1.82249832, +0.169902906), (+1.34895575, +0.104978137), (+1.78549266, +0.168776482), (+1.59728646, +0.937940717), (+1.64160836, +0.406046599), (+1.90600932, +0.161031391E-1), (+1.94391763, +0.980736852), (+1.48755860, +0.578200281)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+99

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.9909997065272176, +0.61164070605152132), (+1.7383724674303676, +0.95759308072743687), (+1.0418267627278746, +0.73813522170408818), (+1.2026943021521346, +0.43937260861516325), (+1.6524970091169813, +0.56383322973559269), (+1.1809723393108231, +0.46536651863883916), (+1.0233281317345866, +0.86658170875299967), (+1.2774095918127029, +0.83049085462750238), (+1.4745521840065530, +0.18912447837805824), (+1.0282422543865497, +0.60010822210315018), (+1.0834920075331815, +0.68408729533053991E-1), (+1.4273077320899765, +0.93536691490090385), (+1.5259213714933617, +0.86831770946780085), (+1.9604790749224241, +0.38678653806025542), (+1.9222172468863032, +0.48781210402839670E-1), (+1.0280166310171732, +0.86216204634399007), (+1.9145891188568041, +0.78599049882209560), (+1.3963437323139758, +0.82675741417678550), (+1.4954879279314470, +0.68896661413149984E-1), (+1.2185084725612567, +0.72892187518197804), (+1.2261030912458746, +0.92397081202557407), (+1.6065337431191797, +0.36932056239569167), (+1.1014814325551026, +0.85047926427389442), (+1.4259794636075980, +0.71255893988491470), (+1.8392864079974325, +0.24885429078021937), (+1.4242612973268409, +0.91465764856613274), (+1.2674358075605925, +0.16402986869864522E-2), (+1.4733835941417623, +0.11267715087527186), (+1.8445791289932516, +0.35674621756450842), (+1.9837251481081164, +0.15248589967339921), (+1.4677775420259453, +0.32292793643596152), (+1.6722243545562328, +0.86025034858282490), (+1.4524341878176728, +0.58489819176573810), (+1.7201675127737612, +0.50437900757757836), (+1.1179337139338126, +0.87517411186738003), (+1.9074056122525311, +0.23984172542334758E-1), (+1.3789059680490021, +0.16730787442786543), (+1.0546613188058434, +0.52659166308602734), (+1.9789610540955771, +0.10699174098969777), (+1.8784562096378741, +0.68467557173104598E-1), (+1.9863133196409131, +0.67989767654329769), (+1.0656597038647566, +0.41133568249868291), (+1.9119772864925277, +0.94690029607467441), (+1.4906106006439903, +0.27750421193189945), (+1.0410369620889295, +0.88578528860328964), (+1.5727350479088253, +0.44617402436478648), (+1.7542088970486922, +0.25220133864937766), (+1.8565905460466681, +0.75771510377420415), (+1.5075077816818301, +0.94723519526193956E-1), (+1.3063200311267189, +0.62731490220003350), (+1.8027210821199013, +0.67506363273654280), (+1.0910732393478728, +0.98582978059658888), (+1.0706348821139384, +0.74260531249813833), (+1.9623097817145871, +0.55411121856042844), (+1.4604762305405359, +0.54344451130947902), (+1.3983098149346462, +0.20261513206886494), (+1.6298332624327834, +0.57199558536557527), (+1.3652260593380694, +0.40289739923945778), (+1.9048016385162305, +0.88503575630741815), (+1.7130241520255680, +0.65330232442005254), (+1.2642995156114387, +0.71303754724435509), (+1.2168512709864765, +0.95044812200070106E-1), (+1.1194458512890435, +0.45224224752097086), (+1.1923427109912519, +0.12195992394686261), (+1.8570346870381811, +0.97852076497484397E-4), (+1.0459167779369136, +0.48075778552864346), (+1.9488838985874382, +0.92938430640648584), (+1.4131368519164553, +0.96724362979462453), (+1.7377222541420068, +0.14574589771813640), (+1.1123332634787026, +0.52638877692742991), (+1.8702079244258030, +0.63841191058637126), (+1.1616289825094808, +0.42226438759394802), (+1.0141830812802608, +0.12622185995548030), (+1.6567942275805394, +0.43750047779229895), (+1.5222874867520710, +0.14609638458440477), (+1.8304121414773791, +0.89434954181493131), (+1.9708803687158789, +0.80098258198204186), (+1.3097897157292775, +0.84414218557542453), (+1.2802791041391726, +0.40494445335877760), (+1.1716610942977010, +0.62887252760907342E-1), (+1.2904572354082346, +0.42826344531449179), (+1.5466710495526970, +0.30520259445600939), (+1.9852360130852063, +0.73190212452881520), (+1.1646226013359429, +0.87026692503697733), (+1.0973175550295584, +0.55760510831397070), (+1.4775896997604936, +0.76702498703590305), (+1.3255154340105066, +0.80325028779816954), (+1.8455851246488240, +0.93860457782353857), (+1.1482894911346286, +0.95715291360247545), (+1.9686666000641644, +0.97761391191273062), (+1.9667070957421480, +0.51140547644918721), (+1.8981804258567139, +0.48315681207960903), (+1.7206715439105045, +0.94996972729411655), (+1.3528509380718767, +0.69914296942438903), (+1.6044477496336818, +0.71498992337989553), (+1.3221607659922632, +0.37442146600221304), (+1.4726656274156844, +0.23735073985379285), (+1.7791612669280685, +0.83086201386089742), (+1.2580738103957323, +0.88785763399912965)

432

433adat = getFFTR(getFFTF(data)) / size(data)

434adat

435(+1.9909997065272180, +0.61164070605152154), (+1.7383724674303671, +0.95759308072743665), (+1.0418267627278752, +0.73813522170408852), (+1.2026943021521344, +0.43937260861516325), (+1.6524970091169811, +0.56383322973559247), (+1.1809723393108229, +0.46536651863883910), (+1.0233281317345868, +0.86658170875299967), (+1.2774095918127026, +0.83049085462750216), (+1.4745521840065527, +0.18912447837805813), (+1.0282422543865501, +0.60010822210315029), (+1.0834920075331815, +0.68408729533053894E-1), (+1.4273077320899781, +0.93536691490090396), (+1.5259213714933613, +0.86831770946780085), (+1.9604790749224239, +0.38678653806025542), (+1.9222172468863030, +0.48781210402839788E-1), (+1.0280166310171732, +0.86216204634398985), (+1.9145891188568038, +0.78599049882209560), (+1.3963437323139762, +0.82675741417678539), (+1.4954879279314475, +0.68896661413149915E-1), (+1.2185084725612567, +0.72892187518197815), (+1.2261030912458746, +0.92397081202557385), (+1.6065337431191793, +0.36932056239569139), (+1.1014814325551032, +0.85047926427389453), (+1.4259794636075971, +0.71255893988491437), (+1.8392864079974327, +0.24885429078021931), (+1.4242612973268405, +0.91465764856613263), (+1.2674358075605923, +0.16402986869865565E-2), (+1.4733835941417619, +0.11267715087527194), (+1.8445791289932509, +0.35674621756450842), (+1.9837251481081164, +0.15248589967339879), (+1.4677775420259458, +0.32292793643596163), (+1.6722243545562328, +0.86025034858282468), (+1.4524341878176721, +0.58489819176573787), (+1.7201675127737619, +0.50437900757757859), (+1.1179337139338121, +0.87517411186737959), (+1.9074056122525314, +0.23984172542334935E-1), (+1.3789059680490019, +0.16730787442786543), (+1.0546613188058431, +0.52659166308602734), (+1.9789610540955775, +0.10699174098969784), (+1.8784562096378739, +0.68467557173104543E-1), (+1.9863133196409128, +0.67989767654329769), (+1.0656597038647568, +0.41133568249868285), (+1.9119772864925280, +0.94690029607467452), (+1.4906106006439901, +0.27750421193189961), (+1.0410369620889308, +0.88578528860328942), (+1.5727350479088253, +0.44617402436478620), (+1.7542088970486920, +0.25220133864937777), (+1.8565905460466681, +0.75771510377420415), (+1.5075077816818307, +0.94723519526194150E-1), (+1.3063200311267180, +0.62731490220003339), (+1.8027210821199009, +0.67506363273654280), (+1.0910732393478728, +0.98582978059658866), (+1.0706348821139384, +0.74260531249813821), (+1.9623097817145869, +0.55411121856042844), (+1.4604762305405357, +0.54344451130947879), (+1.3983098149346473, +0.20261513206886550), (+1.6298332624327829, +0.57199558536557504), (+1.3652260593380698, +0.40289739923945783), (+1.9048016385162299, +0.88503575630741804), (+1.7130241520255678, +0.65330232442005265), (+1.2642995156114385, +0.71303754724435509), (+1.2168512709864761, +0.95044812200070355E-1), (+1.1194458512890437, +0.45224224752097059), (+1.1923427109912521, +0.12195992394686270), (+1.8570346870381806, +0.97852076497747940E-4), (+1.0459167779369134, +0.48075778552864334), (+1.9488838985874388, +0.92938430640648606), (+1.4131368519164549, +0.96724362979462430), (+1.7377222541420072, +0.14574589771813640), (+1.1123332634787026, +0.52638877692743025), (+1.8702079244258030, +0.63841191058637115), (+1.1616289825094810, +0.42226438759394802), (+1.0141830812802606, +0.12622185995548052), (+1.6567942275805390, +0.43750047779229895), (+1.5222874867520715, +0.14609638458440438), (+1.8304121414773795, +0.89434954181493143), (+1.9708803687158789, +0.80098258198204164), (+1.3097897157292784, +0.84414218557542442), (+1.2802791041391721, +0.40494445335877738), (+1.1716610942977013, +0.62887252760907217E-1), (+1.2904572354082349, +0.42826344531449168), (+1.5466710495526974, +0.30520259445600945), (+1.9852360130852058, +0.73190212452881520), (+1.1646226013359433, +0.87026692503697733), (+1.0973175550295586, +0.55760510831397059), (+1.4775896997604931, +0.76702498703590283), (+1.3255154340105062, +0.80325028779816954), (+1.8455851246488240, +0.93860457782353846), (+1.1482894911346293, +0.95715291360247556), (+1.9686666000641637, +0.97761391191273050), (+1.9667070957421484, +0.51140547644918710), (+1.8981804258567136, +0.48315681207960903), (+1.7206715439105051, +0.94996972729411666), (+1.3528509380718763, +0.69914296942438903), (+1.6044477496336815, +0.71498992337989542), (+1.3221607659922632, +0.37442146600221288), (+1.4726656274156842, +0.23735073985379285), (+1.7791612669280688, +0.83086201386089731), (+1.2580738103957325, +0.88785763399912931)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+55

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.11053705429386143305079800476747914, +0.852512685339716763426892796523962976E-1), (+1.05700384620440645067370319835127227, +0.731956454696620287152790991953609687), (+1.24563709784550579742132940856436516, +0.799200099775605873304503157262415844), (+1.42163729292928960865375050161596035, +0.208594030596812977260701855027782526), (+1.98613053094229594483894745559501513, +0.681030201590894134872200819700206542), (+1.04751595752302787872151756034964686, +0.230136810458143513167798529447890807), (+1.20327475318047153665548383914280915, +0.270463860227364573055643138337274002), (+1.00205082724462631836236644277371359, +0.525444794797206166331729365543581032), (+1.59533683923597889138414902525030874, +0.277174914045719844765890298142840155), (+1.36600955590796192872841910058982827, +0.890094284169262684404633686725177668), (+1.29071950816855809441157121500034186, +0.384194920124043489082967785699771884), (+1.95546688143274642852529887360580996, +0.703924314560578815456610821518004174), (+1.52833423226688742642428960748529515, +0.963975378677848299633954814368001252), (+1.90923890780946934748365462728673216, +0.145886797853738727870191103398983688), (+1.34329750831722758176988705270867809, +0.850113682240100292127989790434590523), (+1.80157443361206554736211710667725057, +0.780138798841222247492510846281543287), (+1.14113813667721799752907601970174450, +0.459461482055380818699550703684302659), (+1.00915521201989482664421714786240603, +0.993821682374453852950805313476988423), (+1.61449031960117449783281703923840204, +0.145312193120090271848005381678681560), (+1.67050620637172642141460119256788330, +0.832677840147592833734966879703715971E-1), (+1.36471242333185398065700658241380255, +0.720619700846229604835407538913246809), (+1.90090752380373767870597972517384206, +0.618095488136865856302885844595180980), (+1.61227438370950639817219296193259157, +0.997310826260985307744029615046227579), (+1.04522993337063951186208199767945934, +0.841371686788393891545990881040853066), (+1.25508436265208914649003764921834879, +0.971210224874214278838492270665953021), (+1.21259067528383891827998465712608530, +0.208656408501102739102178039039223002), (+1.57097176410725509723060928708747771, +0.358903047927231546735614345450741988), (+1.14723151418795834005717406744294200, +0.353061039570274157701327570928653756), (+1.71344255327038105148650599840963411, +0.758217954820067598327743890781822477), (+1.25354543738680498730685151153476513, +0.793190345027065239813313834715002954), (+1.90365635816042128829357343464603736, +0.933577739804479291895643852687198669), (+1.59623560190135876181613059056602144, +0.903782777754693501797941321504464541), (+1.50545633603304655062216354297585306, +0.373837904079872911488957087955291115), (+1.05596320462616782185553202485098246, +0.304708171226977887261680382895077784), (+1.82825718778191696475827382375644712, +0.496699561536327501253672322157689309), (+1.45238160790101997845733281938030973, +0.620982857000115707202333417602011812), (+1.93732219085463981822472987164904312, +0.419049654301857602288758692140797018), (+1.30237313770457949578130635384289942, +0.677252253692567678035388764466303550), (+1.28822360487297286561972114043008716, +0.317910254535617621052475191845724647), (+1.25369838074939322089932880187550393, +0.152653208643863282876441346746861205), (+1.63748812552602129790606405388342519, +0.522758219565189536863179099000281552), (+1.24695700410455252699592599555978847, +0.328749221687655185566737303596638928), (+1.50197927350349194020663563303878150, +0.835528130008925774333897485428962654), (+1.30834559745160274550394616942929290, +0.664597216732678936875523730828614378), (+1.83331501771555334673691692553959265, +0.960342261564481264090546792800445980), (+1.02928717763182601158269237887936867, +0.787578095935450088349134809525791064), (+1.47380447830233103061991057690831101, +0.662661573464115044769697043059429234), (+1.59056191846442180413887339934937602, +0.318039178862904870341446496782621272), (+1.32045675959128685270914378373218483, +0.390821387815291011025450455155055302), (+1.60685253830697260503121149398309761, +0.161383178740180009534914518908559995), (+1.56044356677439486575595538038199370, +0.287296247681950464740603263297944277), (+1.91284346296257105514419096891244128, +0.313178928779129022202099315309538213), (+1.73171555012754442400179919861686922, +0.360678522892781286285696786457251328), (+1.10971835957849477721840249795742848, +0.374566471357366326523217974469927886), (+1.69123796495643887877245750452359803, +0.474567585199677619040193706856861674)

449

450adat = getFFTR(getFFTF(data)) / size(data)

451adat

452(+1.11053705429386143305079800476747895, +0.852512685339716763426892796523961291E-1), (+1.05700384620440645067370319835127227, +0.731956454696620287152790991953609591), (+1.24563709784550579742132940856436554, +0.799200099775605873304503157262415844), (+1.42163729292928960865375050161596055, +0.208594030596812977260701855027782454), (+1.98613053094229594483894745559501513, +0.681030201590894134872200819700206638), (+1.04751595752302787872151756034964667, +0.230136810458143513167798529447890879), (+1.20327475318047153665548383914280934, +0.270463860227364573055643138337273954), (+1.00205082724462631836236644277371321, +0.525444794797206166331729365543581032), (+1.59533683923597889138414902525030893, +0.277174914045719844765890298142840058), (+1.36600955590796192872841910058982827, +0.890094284169262684404633686725177475), (+1.29071950816855809441157121500034206, +0.384194920124043489082967785699771739), (+1.95546688143274642852529887360580957, +0.703924314560578815456610821518004077), (+1.52833423226688742642428960748529534, +0.963975378677848299633954814368001252), (+1.90923890780946934748365462728673235, +0.145886797853738727870191103398983785), (+1.34329750831722758176988705270867848, +0.850113682240100292127989790434590715), (+1.80157443361206554736211710667725076, +0.780138798841222247492510846281543383), (+1.14113813667721799752907601970174431, +0.459461482055380818699550703684302466), (+1.00915521201989482664421714786240641, +0.993821682374453852950805313476988712), (+1.61449031960117449783281703923840224, +0.145312193120090271848005381678681680), (+1.67050620637172642141460119256788369, +0.832677840147592833734966879703715369E-1), (+1.36471242333185398065700658241380275, +0.720619700846229604835407538913246713), (+1.90090752380373767870597972517384245, +0.618095488136865856302885844595180883), (+1.61227438370950639817219296193259157, +0.997310826260985307744029615046227676), (+1.04522993337063951186208199767945934, +0.841371686788393891545990881040853066), (+1.25508436265208914649003764921834918, +0.971210224874214278838492270665953117), (+1.21259067528383891827998465712608530, +0.208656408501102739102178039039222858), (+1.57097176410725509723060928708747790, +0.358903047927231546735614345450742373), (+1.14723151418795834005717406744294219, +0.353061039570274157701327570928653708), (+1.71344255327038105148650599840963430, +0.758217954820067598327743890781822574), (+1.25354543738680498730685151153476533, +0.793190345027065239813313834715003146), (+1.90365635816042128829357343464603736, +0.933577739804479291895643852687198765), (+1.59623560190135876181613059056602222, +0.903782777754693501797941321504464830), (+1.50545633603304655062216354297585345, +0.373837904079872911488957087955290971), (+1.05596320462616782185553202485098226, +0.304708171226977887261680382895077688), (+1.82825718778191696475827382375644731, +0.496699561536327501253672322157689405), (+1.45238160790101997845733281938030973, +0.620982857000115707202333417602011812), (+1.93732219085463981822472987164904332, +0.419049654301857602288758692140796970), (+1.30237313770457949578130635384289942, +0.677252253692567678035388764466303646), (+1.28822360487297286561972114043008735, +0.317910254535617621052475191845724599), (+1.25369838074939322089932880187550413, +0.152653208643863282876441346746861446), (+1.63748812552602129790606405388342519, +0.522758219565189536863179099000281745), (+1.24695700410455252699592599555978847, +0.328749221687655185566737303596638735), (+1.50197927350349194020663563303878188, +0.835528130008925774333897485428962461), (+1.30834559745160274550394616942929328, +0.664597216732678936875523730828614378), (+1.83331501771555334673691692553959246, +0.960342261564481264090546792800445980), (+1.02928717763182601158269237887936867, +0.787578095935450088349134809525791064), (+1.47380447830233103061991057690831140, +0.662661573464115044769697043059429234), (+1.59056191846442180413887339934937621, +0.318039178862904870341446496782621080), (+1.32045675959128685270914378373218521, +0.390821387815291011025450455155055399), (+1.60685253830697260503121149398309800, +0.161383178740180009534914518908560116), (+1.56044356677439486575595538038199370, +0.287296247681950464740603263297944373), (+1.91284346296257105514419096891244186, +0.313178928779129022202099315309538405), (+1.73171555012754442400179919861686903, +0.360678522892781286285696786457251232), (+1.10971835957849477721840249795742906, +0.374566471357366326523217974469927790), (+1.69123796495643887877245750452359841, +0.474567585199677619040193706856861674)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+37

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.28351736, +1.13252139, +1.17375278, +1.73462963, +1.98257649, +1.17141747, +1.88545179, +1.85442972, +1.52041805, +1.15703344, +1.80749273, +1.48029637, +1.04664600, +1.92986751, +1.74489737, +1.00445712, +1.96922135, +1.43099165, +1.36466002, +1.67508554, +1.77892900, +1.23077035, +1.69587171, +1.01733851, +1.65534496, +1.29128098, +1.58688056, +1.58312583, +1.53737760, +1.60464549, +1.01446164, +1.94551706, +1.53265691, +1.86898398, +1.51742697, +1.68932462, +1.70444703

466

467adat = getFFTR(getFFTF(data)) / size(data)

468adat

469+1.28351712, +1.13252139, +1.17375302, +1.73462987, +1.98257649, +1.17141724, +1.88545144, +1.85442996, +1.52041781, +1.15703273, +1.80749309, +1.48029602, +1.04664433, +1.92986798, +1.74489737, +1.00445640, +1.96922266, +1.43099272, +1.36465800, +1.67508388, +1.77893102, +1.23076987, +1.69587278, +1.01733720, +1.65534544, +1.29127991, +1.58688056, +1.58312511, +1.53737783, +1.60464489, +1.01446128, +1.94551706, +1.53265691, +1.86898386, +1.51742709, +1.68932450, +1.70444715

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+24

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.4911286308167964, +1.2390489807402014, +1.5873822300922105, +1.5817603321033058, +1.8630043066673885, +1.5415520544256949, +1.1744276747382587, +1.0252150928874588, +1.1745069130358079, +1.7022493562315113, +1.5164703201951300, +1.6608933657663791, +1.6934133279994268, +1.2805533092846537, +1.4391521610163536, +1.8481808573831899, +1.9521332286777946, +1.8446317927146774, +1.0352616666203589, +1.3801139206152495, +1.6097961296424250, +1.1085586041422473, +1.4806865644610152, +1.3477702292511200

483

484adat = getFFTR(getFFTF(data)) / size(data)

485adat

486+1.4911286308167966, +1.2390489807402016, +1.5873822300922107, +1.5817603321033058, +1.8630043066673891, +1.5415520544256951, +1.1744276747382585, +1.0252150928874586, +1.1745069130358083, +1.7022493562315113, +1.5164703201951302, +1.6608933657663789, +1.6934133279994272, +1.2805533092846539, +1.4391521610163533, +1.8481808573831895, +1.9521332286777948, +1.8446317927146776, +1.0352616666203591, +1.3801139206152493, +1.6097961296424257, +1.1085586041422475, +1.4806865644610152, +1.3477702292511200

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+53

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.47850113447390795228711772163233737, +1.88203753739403517852030913622379036, +1.72623099992405004835577091844563471, +1.32694209667120875146634490670136685, +1.51052857144151142492461534944690686, +1.85077593648574239420383143618382692, +1.59571797470801137361815965747457016, +1.49972353782375143738091356986327640, +1.78413480353701377756986753321932141, +1.05415716139167498133917190427421023, +1.02279578230112381113158035222421219, +1.32378296065391211372202909848771493, +1.75045679015766276661043289083907895, +1.80118358411393268788682068761328978, +1.17336908995972288025572640204309467, +1.27370692895763939138712246285693963, +1.44766705348181711185270020258980641, +1.80432850586846173902659512238225877, +1.68165696864320257701475032052859461, +1.46033787570194087512512740086643452, +1.55262815268548549143776963942669619, +1.56078571785439356705965999221662662, +1.67705524168893178218805170404267175, +1.53595507171671188707488598839272797, +1.16041313122451994543694288747845993, +1.44582832042418617414750628568841870, +1.42990423962911772269250326810232510, +1.21833767870025106813189427540816478, +1.35745093032120476557581268361825271, +1.03019150217377592518102751927724890, +1.65014844580516870122696091366764363, +1.80948315666359959023770842264834407, +1.08011971032837914505955503462932391, +1.46871994246625512280505840541080461, +1.60531864968194401321604014853882013, +1.45895408818449920318101202764542208, +1.90283159677998546418016617032664519, +1.10889209706167813796736027338967361, +1.60285898709773689742822873578778890, +1.26800692928596488886024413717523906, +1.17610286547657341421821196830019722, +1.13399597616969214941538004784716174, +1.14784391314744077524873336696556243, +1.76261401339704241851810055295712272, +1.97837089434240846302302706656119230, +1.37395046118738249483292674480808954, +1.71364872459158655359491285520879726, +1.28411371112500396582510076289020414, +1.67244830791041053722155453521091757, +1.08287073844912553654247319164617147, +1.12517454035030813123023165440647408, +1.32944627832360923400745676240027418, +1.75251406813073582349666382859120938

500

501adat = getFFTR(getFFTF(data)) / size(data)

502adat

503+1.47850113447390795228711772163233775, +1.88203753739403517852030913622379056, +1.72623099992405004835577091844563529, +1.32694209667120875146634490670136665, +1.51052857144151142492461534944690667, +1.85077593648574239420383143618382653, +1.59571797470801137361815965747456997, +1.49972353782375143738091356986327543, +1.78413480353701377756986753321932353, +1.05415716139167498133917190427420792, +1.02279578230112381113158035222421142, +1.32378296065391211372202909848771397, +1.75045679015766276661043289083908068, +1.80118358411393268788682068761329209, +1.17336908995972288025572640204309332, +1.27370692895763939138712246285693963, +1.44766705348181711185270020258980699, +1.80432850586846173902659512238226070, +1.68165696864320257701475032052859558, +1.46033787570194087512512740086643375, +1.55262815268548549143776963942669581, +1.56078571785439356705965999221662624, +1.67705524168893178218805170404267291, +1.53595507171671188707488598839272970, +1.16041313122451994543694288747845723, +1.44582832042418617414750628568842043, +1.42990423962911772269250326810232529, +1.21833767870025106813189427540816208, +1.35745093032120476557581268361825444, +1.03019150217377592518102751927724563, +1.65014844580516870122696091366764691, +1.80948315666359959023770842264834600, +1.08011971032837914505955503462932025, +1.46871994246625512280505840541080384, +1.60531864968194401321604014853882129, +1.45895408818449920318101202764542170, +1.90283159677998546418016617032664827, +1.10889209706167813796736027338967149, +1.60285898709773689742822873578779141, +1.26800692928596488886024413717523926, +1.17610286547657341421821196830019703, +1.13399597616969214941538004784716116, +1.14784391314744077524873336696556108, +1.76261401339704241851810055295712445, +1.97837089434240846302302706656119365, +1.37395046118738249483292674480808896, +1.71364872459158655359491285520879765, +1.28411371112500396582510076289020317, +1.67244830791041053722155453521091737, +1.08287073844912553654247319164617147, +1.12517454035030813123023165440647350, +1.32944627832360923400745676240027515, +1.75251406813073582349666382859120938

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1156 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90